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Cuando presentábamos el BASIC PARA LA ESCUELA (NIVEL -1) incluía- 
mos el Plan General del AULA DE INFORMATICA BASICA que COSPA ha 
diseñado para los Centros Escolares. En dicho Plan General se contempla el 
BASIC PARA LA ESCUELA (NIVEL -11) como «perfeccionamiento de la progra- 
mación en Lenguaje BASIC (segundo curso». £/ Manual que ahora ponemos 
en sus manos viene a responder ampliamente a las exigencias que plantean 
los conocimientos en el Nivel anterior. 


Por un lado, es preciso profundizar más en las nociones que sobre la 
máquina (Hardware) se han adquirido ya. Es decir, es necesario adentrarse en 
la complejidad que la estructura y funcionamiento de un ordenador lleva 
consigo. Es preciso, también, conocer con detalle los sistemas que posee el 
ordenador para comunicarse con el exterior, asícomo adquirir conocimientos 


precisos sobre la técnica de la programación en sí, resolución de problemas, 
Diagramas de Flujo y sus especificaciones. Es necesario, en fin, adquirir 
seguridad tanto en los sistemas de codificación y numeración, como en la 
representación de los números en el ordenador y la lógica de Boole. 


A todo este campo responden, creemos que con claridad, los cuatro 
primeros capítulos. 


Pero, por otro lado, es preciso seguir profundizando en el conocimiento del 
Lenguaje de Programación en BASIC. El camino que se propone es el 
siguiente: 


e Dominar los aspectos de Edición y mandatos. 

Definición de constantes y variables. 

Manipulación de la pantalla. 

Funciones definidas por el BASIC. 

Bifurcaciones y sus consecuencias. 

Concatenaciones. 

Vectores y Tablas, con sus problemas de ordenación y búsqueda, junto 
con algunas sentencias BASIC específicas, tales como: PEEK, ONERR, 
GOTO, RESUME, etc. 


Finalmente, el tratamiento de Gráficos y almacenamiento de la informa- 
ción (Ficheros) constituirá el paso final de este Nivel-1! y el puente que enlace 
con el tercero y último Nivel de BASIC, contemplado en el Plan General del 
Aula de Informática de COSPA. 


A la vista de esta somera reseña del contenido del presente Manual, ya 
pueden apreciarse los objetivos básicos buscados por COSPA al diseñar esta 
actividad. Es decir, adquirir unos sólidos conocimientos de la Informática 
Básica y el Lenguaje de Programación BASIC, asícomo contribuir al desarro- 
llo de la inteligencia lógica de los alumnos. Ejercitándose en la resolución de 
problemas, mediante diagramas de flujo, se estará aumentando la capacidad 
de discurso lógico, contrastando los errores de planteamiento con las solu- 
ciones correctas. 


Se ha pretendido mantener la misma metodología que la empleada en el 
Nivel-1. Es decir, graduar la dificultad de forma creciente, al tiempo que se 
permite realizar prácticas adecuadas a cada momento teórico. De esta forma, 
la comprensión y asimilación será más eficaz. 


Cada uno de los capítulos comprendidos en el presente Manual mantiene 
una misma estructura interna: presentación del contenido teórico, con la 
ejemplificación oportuna para cada una de las afirmaciones más significati- 
vas realizadas, y pretendiendo encerrar en cada uno aquellos aspectos que 
guarden tal relación entre sícomo para poder constituir una entidad didáctica. 
Al final se plantean cuestiones que permiten a los alumnos autoevaluarse 
sobre los puntos centrales tratados en cada capítulo. 


En los apéndices finales se han planteado una serie de cuestiones sobre 
las Matemáticas y Física estudiadas en 82 de E.G.B. Para cada una de ellas se 
ha elaborado un programa en Lenguaje BASIC que aporte la solución. Con 
ello pretendemos dos objetivos: por un lado, que se practique lo aprendido del 
Lenguaje de Programación estudiado y, por otro, que se recuerden algunos 
aspectos de estas dos áreas educativas. Así, mientras se afianza lo aprendido, 
se repasan otras asignaturas y se evidencia la utilidad del tiempo empleado 
en el estudio de la Informática. 


Con la presentación de este Manual de BASIC PARA LA ESCUELA 
(NIVEL -11), estamos dando un segundo paso en el camino de nuestra AULA DE 
INFORMATICA BASICA. Pronto irán apareciendo el resto de Manuales que 
respondan a todos y cada uno de los objetivos establecidos. Esperamos que 
nuestro intento de ayudar a los estudiantes a adentrarse en la Informática se 
vea coronado por el éxito de haber contribuido a abrir la puerta del futuro. 


L. Ortega Martínez 
Director del Departamento de Educación e 
Investigación de COSPA 


Madrid. Febrero de 1985 
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CAPITULO 12 


ESTRUCTURA Y FUNCIONAMIENTO 
DEL ORDENADOR 


1. INTRODUCCION 


Un ordenador es una máquina destinada a efectuar operaciones 
de proceso, manipulación y elaboración de datos de forma automá- 
tica. 


Como ya sabes por el Nivel 1, un ordenador está constituido por 
la UNIDAD CENTRAL DE PROCESO (UCP) y las UNIDADES 
PERIFERICAS o UNIDADES DE ENTRADA/SALIDA. A su 
vez la Unidad Central de Proceso está formada por una Memoria 
Central, donde se guardan datos y programas, una Unidad de Con- 


trol, que gobierna el funcionamiento de la máquina y una Unidad 
Aritmético-Lógica, que efectúa las operaciones aritméticas y lógicas y 
devuelve el resultado de ellas. 


La Unidad Central de Proceso ejecuta el programa mientras que 
las Unidades de entrada/salida se encargan de los intercambios de 
información con el exterior. Vamos a ver con más detalle la realiza- 
ción de estas acciones. 


2. LA UNIDAD CENTRAL DE PROCESO 


El programa se guarda en memoria antes de ejecutarse. Esta 
memoria en la que almacenamos programas se llama Memoria Cen- 
tral o Memoria Principal. 


En la memoria central podemos guardar dos tipos de informa- 
ción: las instrucciones de que consta el programa (o descripciones del 
tratamiento a efectuar) y los datos (o información a tratar), llamados 
también operandos, con los cuales efectuará la máquina el trata- 
miento dictado por las instrucciones Esta memoria central es una 
parte de la Unidad Central de Proceso. 


Tenemos también en la Unidad Central de Proceso una Unidad 
de Control para las informaciones descriptoras y una Unidad Aritmé- 
tico-Lógica para las informaciones a tratar. 


La Unidad de Control tiene como funciones principales el extraer 
de de la memoria central la nueva instrucción a ejecutar, analizar 
dicha instrucción y establecer las conexiones eléctricas dentro de la 


UAL. Extrae de la memoria ceniral los datos implicados por la 


instrucción, desencadena el tratamiento de dichos datos en la UAL 
y almacena el resultado en la MC. 


La UAL opera con los datos que recibe siguiendo órdenes de 
la UC. 


En conclusión, la Unidad Central de Proceso se compone de 
Unidad de Control, Memoria Central y Unidad Aritmético-Lógica, 
aunque para algunos autores la MC es una parte separada de la UCP 
y consideran como UCP sólo a la UC y a la UAL. 
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Fig. 1.1 Organización de una Unidad Central 


3. CANALES Y UNIDADES PERIFERICAS 


Hemos visto hasta ahora que el ordenador es capaz de ejecutar el 
programa que reside en memoria, sobre datos también almacenados 
en la memoria central, y guardar los resultados en ésta a medida que 
se van obteniendo. Vemos entonces que tenemos una instalación 
capaz de efectuar operaciones y guardar los resultados, pero todo esto 
se produce dentro de la máquina. 


Necesitamos, por tanto, dotar a esta instalación de medios de 
comunicación con el exterior. Dicho de otra manera, necesitamos 
dotarla de medios capaces de enseñarnos los cálculos y resultados que 
obtiene. Este es el papel de las Unidades Periféricas o Unidades de 
EJ'S, 


Tenemos dos tipos de Unidades de entrada/salida: las unidades 
de comunicación (impresoras, monitores...) que permiten el diálogo 
con el exterior y las unidades auxiliares (discos, cintas...) cuyas capa- 
cidades de almacenamiento son muy superiores a la de la memoria 
central. 


Las unidades periféricas se conectan bien a la unidad central, bien 
directamente a la memoria central a través de unidades especializadas 
en las transferencias de información. Estas unidades especializadas se 
llaman canales. Cuando la Unidad de Control encuentra una instruc- 
ción de entrada/salida se ocupa de gobernar los canales. 


En resumen, podemos imaginarnos una instalación de ordenador 
como un conjunto de unidades cuyo funcionamiento viene dictado 
por el programa alojado en memoria. La unidad de control gobierna 
la ejecución de las operaciones pedidas por el programa; si la opera- 
ción es un cálculo, la UAL es quien lo realiza y sies una transferencia 
de información se cede al control a un canal. 
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Fig. 1.2 Esquema general de un ordenador 


4. FUNCIONAMIENTO DE UN ORDENADOR 


Vamos a dar un paso más en la descripción del funcionamiento de 
, e Fa hs 
un ordenador buscando, más que definiciones precisas, una compren- 
sión intuitiva de sus mecanismos. 


4.1. Los Registros 


Las diferentes informaciones, instrucciones y datos, pueden alma- 
cenarse temporalmente en partes de la memoria llamadas registros. 
La información puede ser transferida de un registro a otro sin que esta 
transferencia altere el contenido del primero. 


Un registro, en definitiva, es una unidad electrónica que almacena 
información temporalmente durante la elaboración de resultados. 


4.2. La Memoria Central 


Una memoria se usa para guardar datos e instrucciones hasta que 
se necesitan durante la ejecución. Puede considerarse como un con- 
junto de CELULAS cada una con posibilidad de almacenar una 
información. Las células están numeradas y la unidad de control 
conoce cada una de ellas por su número llamado DIRECCION. 


La unidad de control puede pedir leer el contenido de una célula 
de una dirección determinada o escribir una nueva información en 
una célula de dirección determinada. Para realizar estas operaciones 
la unidad de control proporciona la dirección de la célula implicada a 
un registro de la memoria central llamado registro de dirección, 
también conocido como registro de selección. 


El dispositivo de selección analiza el contenido del registro de 
dirección y prepara la célula implicada para una lectura O para una 
escritura. Si se tratase de una lectura, la información almacenada en la 
célula será transferida a un segundo registro, también de la memoria 
central, el registro de intercambio o registro de palabra. 

En el caso de una escritura, previamente habrá sido preciso cargar 
este mismo registro con la información que se quiere imprimir en la 
célula en cuestión. 


En la memoria central la operación de lectura no destruye la 
información almacenada en la célula, mientras que la operación de 
escritura destruye la información almacenada sustituyéndola por la 


nueva. 
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Fig. 1.3 Lectura y escritura en memoria 


4.3. La Unidad Aritmético-Lógica 


Para que el ordenador pueda efectuar una operación aritmética, 
por ejemplo una suma, la instrucción adecuada debe facilitarle las 
siguientes informaciones: 


— La clase de operación a realizar, en este caso una suma. Esto 
se hace mediante el código de operación. 

— La dirección de la célula de memoria que contiene el primer 
dato a sumar o primer operando. 

— La dirección de la célula de memoria que contiene el segundo 
operando. 

— La dirección de la célula de memoria donde va a almacenarse 
el resultado. 


Por tanto la instrucción contendrá un código y tres direcciones 
y su formato será: 


CODIGO 
DE DIRECCION 1* DIRECCION 22 DIRECCION 


OPERACION OPERANDO OPERANDO RESULTADO 


Una UAL capaz de ejecutar esta operación debe contener, por 
tanto, tres registros: dos para guardar los operandos y otro más para 
el resultado. 


La instrucción de suma necesita cuatro accesos a la memoria 
central que permiten sucesivamente buscar la instrucción, el primer 
operando, el segundo y almacenar el resultado. A las máquinas que 
usan este tipo de instrucciones se las llama máquinas de tres direc- 


ciones. 
) RESULTADO 
OPERACIONES A EJECUTAR 
- —_oo  —_———— 
: 29 OPERANDO 
OPERANDO 


Fig. 1.4 UAL (Máquina de tres direcciones) 


También existen máquinas de una sola dirección, en las que la 
UAL posee un registro particular, llamado ACUMULADOR, que 
permite alojar el primer operando y el resultado. Esto hace posible la 


existencia de instrucciones de una sola dirección, la del segundo 
operando. 


En este primer caso la operación de suma necesitará tres opera- 
ciones: 


— Cargar el primer operando en el acumulador. 
— Sumar el segundo operando con el contenido del acumulador. 
— Almacenar en memoria el contenido del acumulador. 


Cada una de ellas comprende un código de operación y una 
dirección. Esto se muestra en la Figura 5, donde el acumulador 
sustituye a los registros R1 y R3. A este tipo de UAL nos referiremos 
en lo sucesivo. 


ACUMULADOR 


RESULTADO 


22 OPERANDO I|T"OPERANDO 
Fig. 1.5 Máquina de una dirección 
4.4. La Unidad de Control 


La Unidad de Control es la que dirige y coordina todo el sistema 
de proceso de datos. Es la encargada de tomar y analizar las instruc- 
ciones de la memoria central y, según su significado, establecer las 


conexiones necesarias con las demás partes de la máquina. Para ello 
tiene dos registros: el contador de instrucciones (o contador ordinal), 
que contiene la dirección de la próxima instrucción a ejecutar, y el 
registro de instrucción, que contiene la instrucción extraída de la 
memoria. 

Asimismo consta de unos codificadores y decodificadores que se 
encargan del paso de binario a decimal y vicecersa. 

El registro de instrucción tiene dos partes, una para el código de 
operación y otra para la dirección del operando que le permite 
encontrar el dato con que ha de realizarse la operación. 

Una vez analizado el código de operación, un generador de 
secuencias o secuenciador, parte también de la unidad de control, 
se ocupa de distribuir las Órdenes a las demás partes del ordenador 
(memoria, UAL,...) para hacerles ejecutar el resto de la instrucción. 


CONTADOR 
ORDINAL 
CODIGO DE ÓN 
OPERACION OPERANDO 


SECUENCIADOR 


Fig. 1.6 Unidad de control 


Veamos ahora cómo se procesan instrucciones en la máquina. 


En primer lugar, la unidad de control envía el contenido del 
contador ordinal al registro de selección de memoria y una orden de 
lectura. Con esto se ha transferido la dirección de la siguiente instruc- 
ción a ejecutar. 


Una vez realizada la lectura, la instrucción queda en el registro de 
palabra y de nuevo la unidad de control ordena la transferencia del 
contenido de este registro al de instrucción. De esta forma puede ya 
analizar el código de operación y saber qué es lo que tiene que hacer. 


A esta primera fase se la llama fase de búsqueda de la instrucción, 
y viene representada por la siguiente figura: 


ORDEN DE LECTURA 


ORDINAL N 
EN Cla só 


UNIDAD DE CONTROL MEMORIA 


REGISTRO DE 


INSTRUCCION be REGISTRA 
TRANS EEN DE REGISTRO 
SFEREN Cy " PALABRA 


Fig. 1.7 Fase de búsqueda 


Cuando el código ha sido analizado, la unidad de control ya sabe 
de qué tipo de instrucción se trata. Distinguiremos dos casos: 


a) Instrucción de cálculo. 
Si es una instrucción de cálculo, la unidad de control sabe qué 
operación tiene que efectuar pero necesita encontrar el operando. 


Para ello transfiere la dirección de éste, que está en el registro de 
instrucción, al registro de selección de memoria y ordena una opera- 
ción de lectura. Así conoce la operación y el dato con que realizarla, 
que se encontrará, como sabemos, en el registro de palabra. 


REGISTRO DE SELECCION 


MEMORIA 
CENTRAL 


TRANSFERENCIA 
DE 
LECTURA 


REGISTRO 
PROCESAMIENTO TRANSFERENCIAS PALABRA 


Fig. 1.8 Búsqueda y procesamiento del operando 


Ahora la unidad de control prepara a la unidad aritmético-lógica 
y le pasa el operando. El resultado es almacenado en el acumulador, 
que, como ya sabemos, es un registro de la UAL. 


A esta fase la llamaremos de búsqueda y procesamiento del 
operando. 


b) Almacenamiento del operando. 

Si lo que la unidad de control tiene que hacer es almacenar el 
operando, la dirección de almacenamiento estará en el registro de 
instrucción, más concretamente en la zona de dirección. El operando 
que ha de guardarse está en el acumulador, en la UAL. La unidad de 


control ordena su transferencia al registro de palabra y completa la 
operación mandando a la memoria una orden de escritura. 


Por último la unidad de control ha de actualizar el contenido del 
registro ordinal con la dirección de la próxima instrucción a ejecutar; 
para ello sólo necesita aumentar en una unidad el contenido de éste, 
ya que el programa se almacena en memoria en direcciones consecu- 
tivas. Con este aumento tenemos, en el contador ordinal, la dirección 
de la próxima instrucción a ejecutar y el ciclo volverá a repetirse. 


Esta es la fase de preparación de la instrucción siguiente. 


Existe algún tratamiento distinto de los expuestos, ya que éstas no 
son las únicas instrucciones posibles. También puede darse el caso de 
instrucciones de ruptura de secuencia o de entrada/salida que vere- 
mos en su momento. 


Pl) 


P2) 
P3) 


P4) 
PS) 


P6) 


P7) 


REPASO CAPITULO 12 


¿En qué registro de memoria se almacena el dato extraído de la 
memoria mediante una operación de lectura? 


¿Qué datos necesita la UAL para poder efectuar una operación? 


Escribe el formato de una instrucción para una máquina de tres 
direcciones? 


¿A qué parte de la máquina pertenece el contador ordinal? 


Cita las tres fases de que consta la ejecución de una instrucción 
de cálculo. 


Dibuja el diagrama correspondiente al caso de almacenamiento 
del operando dentro del apartado dedicado a la UC. 


¿A qué parte de la máquina pertenece el secuenciador? 


No pasar la página hasta haber realizado los ejercicios planteados. 


R1) 
R2) 


R3) 


R4) 
R5) 


R6) 


R7) 


SOLUCIONES CAPITULO 12 


Registro de palabra. 


El código de operación, las direcciones de memoria en que se 
encuentren los operandos y la dirección de memoria en que se 
almacenará el resultado. 


CODIGO DE DIRECCION DIRECCION DIRECCION 


OPERACION |" OPERANDO 22 OPERANDO RESULTADO 


La Unidad de Control. 


Fase de búsqueda de la instrucción, Fase de búsqueda y proce- 
dimiento del operando y Fase de preparación de la instrucción 
siguiente. 


ORDEN DE ESCRITURA 


Contador ordinal 
UNIDAD 


MEMORIA 


CENTRAL 


REGISTRO 
DE 
SELECCION 


ORDENES DE TRANSFERENCIA 


REGISTRO 
DE PALABRA 


La Unidad de Control. 
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CAPITULO 29 
COMUNICACION CON EL EXTERIOR 


1. INTRODUCCION 


Hemos visto en el capítulo anterior que un ordenador es capaz de 
entender unas órdenes que tiene almacenadas en su interior y de ejecu- 
tarlas mediante una serie de dispositivos. 


Hemos visto también cómo efectúa las operaciones y que los 
resultados los almacena en su memoria. Necesitamos conocer ahora 
otros dispositivos que capaciten a la máquina para poder comunicar- 
nos el resultado de su trabajo, así como para poder darles nuestras 
Órdenes. 


Este es el cometido de las unidades periféricas, llamadas también 
unidades de entrada/salida; de entrada puesto que permiten la comu- 
nicación entre nosotros y el ordenador, y de salida ya que también 


tienen la función inversa, hacen que el ordenador pueda comunicarse 
con nosotros. 


Estas unidades periféricas son el objeto de este capítulo y de ahí el 
título del mismo. 


2. PERIFERICOS DE UN ORDENADOR 


Podemos definir un elemento periférico o simplemente un perifé- 
rico como cualquier dispositivo capaz de intercambiar información 
entre el ordenador y el usuario. 


Se distinguen dos tipos, de un lado las unidades que permiten las 
comunicaciones entre la máquina y el medio exterior, como pueden 
ser: lectoras de tarjetas, impresoras, etc., y de otro lado las memorias 
auxiliares que sirven de soporte de almacenamiento de gran capaci- 
dad y de medio de comunicación en el interior del sistema. 


2.1. Unidades que permiten las comunicaciones 
entre la máquina y el usuario 


2.1.1. La lectora de tarjetas 


Es la unidad más tradicional en los ordenadores, aunque en la 
actualidad se usa poco. 


El programa se proporciona al ordenador escrito en tarjetas y es la 
lectora la encargada de decodificarlo. 


La figura muestra una tarjeta IBM de 18,73 cms. de largo y 8,25 de 
alto, y como podemos ver está dividida en 80 columnas. En cada una 
de ellas se hace una perforación que tiene como significado un único 


carácter y cada tarjeta representa una línea de programa. Así una sola 
perforación en la línea marcada con 0 significaría un cero, una 


perforación en la línea marcada con l significaría un uno y así 
sucesivamente. En la figura se muestran las distintas perforaciones y 
sus caracteres equivalentes. 
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Fig. 2.1 Tarjeta perforada torero ereb0 eee ars 


Existen máquinas capaces de realizar estas perforaciones, son las 
perforadoras de tarjetas. Su teclado es similar al de una máquina de 
escribir. 


Un ejemplo de una de ellas es la perforadora 029 de IBM que se 
muestra en la figura. 
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Fig. 2.2 Lectora de tarjetas MESA DE LECTURA 


La velocidad a la que funcionan las lectoras es de 1.000 tarjetas 
por minuto, lo que significa que pueden leerse 80.000 caracteres por 
minuto, aunque existen lectoras más rápidas. Es un periférico típica- 
mente de entrada y su ventaja consiste en que su soporte es muy 


barato, papel. Sin embargo, la tarjeta una vez usada no puede volver 
a utilizarse, he ahí uno de sus mayores inconvenientes. 


Actualmente están prácticamente abandonadas, habiendo sido 
sustituidas por periféricos más rápidos y eficientes. 


COSPA., S.A., durante tantos años dedicada a la enseñanza y, 
más concretamente, al perfeccionamiento de los servicios que presta a 
la enseñanza, ha desarrollado un sistema de lectura Óptica que deno- 
mina Lectura Optica COSPA 2466. Consta de un sistema de arrastre 
mediante el cual hace pasar la Hoja de Respuestas sobre el dispositivo 
de lectura, una cabeza lectora y un depósito de almacenaje de las 
Hojas de Respuesta, una vez leídas. Describiremos, a continuación, 
brevemente el sistema de arrastre y la cabeza lectora. 


a) Sistema de arrastre 


Las Hojas de Respuesta que contienen la información son 
introducidas mecánicamente mediante el sistema de arrastre. 
Este motor de arrastre es el encargado de hacer pasar a la Hoja 
de Respuestas sobre la “cabeza lectora” a una velocidad apro- 
ximadamente constante y suficiente como para que pueda 
recoger cuanta información contenga. 


b) Cabeza lectora 


El otro componente básico del aparato lector está constituido 
por la “cabeza lectora”. Consta de los siguientes elementos 
principales: 


— Un mazo de fibras ópticas, conectado a un sistema de 


emisión de luz, que conduce de manera uniforme y segura 
la luz que recibe en un circuito de ida y vuelta. 


— Un sistema de veinticuatro transistores (uno para cada 
canal de lectura más el destinado a controlar los campos de 
lectura), que serán los que recibirán la reflexión de la luz 
al encontrarse con una marca (información), en la Hoja de 
Respuestas. 


Fig. 2.3 Lectora óptica COSPA 2466 


— El fototransmisor encargado de controlar los campos de 
lectura lo hace dividiendo a la Hoja de Respuestas en 53 
líneas horizontales que, a su vez, están divididas cada una 
en veinticuatro canales receptores de posibles marcas, y 
hasta un máximo de sesenta y cinco líneas de lectura. 


Por tanto, las fibras Ópticas proyectan sobre la Hoja de Respues- 
tas la luz que conducen y cuando en la Hoja de respuestas se encuen- 
tran con la marca (grafito depositado por el lápiz HB número 2 o 
cualquier otro material reflexivo), la luz rebota y es conducida por la 
fibra Óptica de retorno hasta el fototransmisor encargado de ese 
canal. Los fototransmisores traspasan esa información a los circuitos 
amplificadores y acondicionadores de señales lumínicas para que 
sean descriminadas y convertidas en dígitos binarios (números y/o 


letras) que se almacenan en la memoria desde donde serán enviados al 


mismo microprocesador para el cálculo concreto deseado mediante el 
correspondiente programa. 

La rapidez y fiabilidad alcanzadas hace que este sistema de en- 
trada de datos sea realmente valioso. 


2.1.2. Impresoras 


Las impresoras son unidades de salida y, como su nombre indica, 
se utilizan para imprimir (escribir) sobre papel programas, resultados, 
informes, etc. La inmensa mayoría usan papel corriente con la salve- 
dad de que ha de estar debidamente acondicionado para que la 
máquina pueda arrastrarlo. Sin embargo, también existen impresoras 
térmicas que necesitan un tipo de papel especial. 


Existen varios tipos, uno de ellos es el constituido por impresoras 
de baja velocidad que alcanzan 200 caracteres por segundo y escriben 
carácter a carácter, otrasson las de alta velocidad que llegan a escribir 
2.000 líneas por minuto pudiendo tener de 80 a más de 120 caracteres 
cada línea. También poseen distintos tipos de letra, seleccionable 
mediante comandos de software. 


Una impresora se muestra en la figura. 


Fig. 2.4 Impresora 


2.2. Memorias auxiliares 


Llamaremos memoria a todo dispositivo electrónico capaz de 
almacenar información, de tal manera que pueda accederse a ella en 
cualquier momento que se necesite. 


Prácticamente la totalidad de las memorias emplean el almace- 
namiento binario, es decir que la información más elemental regis- 
trada es el bit a cuyo soporte físico llamamos punto de memoria. 


Pueden utilizarse diversos fenómenos físicos para realizar el 
punto de memoria. 


Desde este punto de vista podemos distinguir las memorias estáti- 
cas divisibles en dos grupos: las memorias a las que se accede por 
impulsos eléctricos (núcleos de ferrita, biestables de semiconducto- 
res,...) y las memorias a las que se accede por haces luminosos o 
electrónicos. Otro tipo son las memorias dinámicas en las que la 
superficie magnética se hace pasar por unas cabezas de lectura y 
escritura para registrar sobre ella la información. Es el campo de las 
actuales memorias auxiliares: cintas magnéticas, discos, tambores, 
etc. 


Algunas características de las memorias son las siguientes: 


— Volatilidad. Se dice que la información almacenada es volátil 
si corre el riesgo de verse alterada por un fallo de alimentación 
eléctrica (memorias constituidas por biestables electrónicos) y 
no volátil en el caso contrario (fenómenos magnéticos perma- 
nentes). 


— Lectura y escritura. Son las operaciones básicas de las memo- 
rias. Se realiza escritura cuando se registran informaciones en 


la memoria y lectura cuando se extraen informaciones pre- 
viamente registradas. La lectura puede ser destructiva, si la 
información leída se borra de la memoria o no destructiva. 
La escritura puede exigir un borrado previo. 


Las memorias de semiconductores son de lectura no destruc- 
tiva y no exigen un borrado previo a la escritura, mientras que 
las memorias de núcleos exigen borrado previo y la lectura es 
destructiva. 


Direccionamiento. Para localizar una información dentro de 
una memoria el ordenador debe saber dónde la ha colocado 
anteriormente. Esta es la función del direccionamiento. 


Modo de acceso. Existen memorias en las que se tiene acceso 
directamente a cualquier información cuya dirección sea 
conocida. Se dice que el acceso a este tipo de memoria es 
aleatorio o directo o selectivo. Sin embargo, otros tipos de 
memorias necesitan ir leyendo toda la información hasta lle- 
gar a la buscada (cintas). Se dice entonces que el acceso a este 
tipo de memoria es secuencial. Existen tipos de memorias en 
los que se combina el acceso directo y el acceso secuencial 
(discos). 


Tiempo de acceso. Es el tiempo que transcurre entre el instante 
en que se ordena una operación de lectura y el instante en que 
se dispone de la primera información buscada. 


Caudal. Es el número máximo de informaciones leídas o 
escritas en la unidad de tiempo. 


— Capacidad. Es el número de informaciones que puede conte- 
ner la memoria. La unidad de capacidad más usada es la K que 
son 1.024 bytes o unidades de información. 


Unidades de discos 


También llamadas winchester, disco fijo, disco duro... El disco 
suele ser de aluminio recubierto por las dos caras de material 
magnético. Son cúupaces de almacenar grandes cantidades de infor- 
mación, llegando a alcanzar los 10 y 20 Mbytes, siendo un Mbyte 
(megabyte) un millón de bytes. 


Unidad de discos flexibles 


Muy usados en sistemas pequeños, micro y miniordenadores. 
Tienen como soporte pequeños discos flexibles intercambiables de 
bajo precio y capacidad, desde 140 hasta 600 Kbytes. Los hay de 
diferentes tamaños, siendo los de 8 y 5,25 pulgadas los más usados. 
Otros periféricos usados son: 


— Terminales de pantalla de rayos catódicos. 
— Plotters, usados para dibujar gráficos. 
— Pantallas especiales sensibles a lápices sensores. 


2.3. Canales. Procesadores de entrada/salida 


Los canales fueron introducidos en el capítulo anterior y, como ya 
dijimos, son dispositivos especializados en la gestión de transferencias 
de control. Son capaces de realizar su cometido tanto en un sentido 


como en otro. 


Las informaciones transferidas se almacenan en memoria de 
forma secuencial; es decir, una detrás de otra. 


Para inicializar la transferencia, instrucciones especiales de entra- 
da/salida deben suministrar al canal la dirección del periférico y la 
dirección donde se encuentra la información a transferir. Para ello el 
canal debe conocer la dirección de la primera información a transferir 
y la cantidad de información que ha de transferirse. 


Después de esto el canal se ocupa de añadir una unidad a la 
dirección de comienzo y restar otra a las informaciones a transferir. 
Cuando haya terminado avisará a la unidad de control para que ésta 
vuelva a tener el gobierno del sistema. 


IMPRESORA 


Fig. 2.5 Representación de conexión de canales 


E RESUMEN =: 


REPASO CAPITULO 22 


Pl) 
P2) 
P3) 
P4) 
PS) 
P6) 
P7) 


¿Para qué sirven las unidades periféricas? 

¿Qué tipos de periféricos conoces? 

Las impresoras, ¿son unidades de entrada o de salida? 
Define el concepto de memoria. 

Cita tres características de las memorias. 

¿En qué consiste la propiedad de tiempo de acceso? 


¿Qué es un canal? 


No pasar la página hasta haber realizado los ejercicios planteados. 


RI) 


R2) 


R3) 


R4) 


R5) 


R6) 


R7) 


SOLUCIONES CAPITULO 22 


Se encargan de la comunicación entre el ordenador y el medio 
exterior. También posibilitan la extracción de resultados e 
introducción de datos. 


Las unidades que permiten la comunicación entre la máquina, 
el mundo exterior y las memorias auxiliares. 


Son unidades de salida, pues sirven para escribir sobre papel 
datos, programas, informes, etc. 


Una memoria es cualquier dispositivo electrónico capaz de 
almacenar información, de tal forma que pueda accederse a ella 
en cualquier momento. 


Tres características de las memorias son: volatilidad, direccio- 
namiento y capacidad, aunque ya sabes que existen algunas 
más. 

El tiempo de acceso es el tiempo que transcurre entre el instante 
en que se ordena una operación de lectura y el instante en que se 
dispone de la primera información buscada. 


Un canal es un dispositivo especializado en la gestión de las 
transferencias de control. 
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CAPITULO 39 


PROGRAMACION EN UN SISTEMA 
INFORMATICO 


BASIC, ALGOL, 
FORTRAM, PASC A 
$ 


1. INTRODUCCION 


Hemos visto hasta ahora una descripción de un sistema 
informático; en este capítulo estudiaremos los pasos que hemos de dar 
para obtener una buena solución de problemas mediante el 
ordenador. 


Ante cualquier problema al que intentemos dar una solución 
informática debemos desarrollar un doble proceso. Por un lado 


tendremos que elaborar un algoritmo que lo solucione y. por otro, 


deberemos escribir ese algoritmo en un lenguaje inteligible para la 
máquina. 

La verdadera dificultad estriba en encontrar el algoritmo que nos 
solucione el problema. La expresión en forma comprensible para la 
máquina, en cambio, es mera transcripción y prácticamente rutinaria. 


Hemos mencionado la palabra algoritmo aunque no la hemos 
definido. A pesar de que por el contenido del texto puede entenderse 
su significado, necesitamos una definición formal, ya que su concepto 
es muy importante. Pues bien, un algoritmo es una procedimiento, 
o conjunto de procedimientos, que nos conducen a la solución de un 
problema; o más formalmente, un algoritmo es un conjunto de 
instrucciones, aplicables a objetos de un cierto tipo, que nos conducen 
a la solución del problema. 


Hemos dicho que la verdadera dificultad en la resolución 
informática de un problema se encuentra en el hallazgo del algoritmo; 
podríamos preguntarnos entonces por la existencia de alguna ciencia 
que nos permita elaborar algoritmos sistemáticamente. No existe tal 
ciencia, ya que si existiese sería también un algoritmo. Con lo que sí 
contamos es con algunos principios fundamentales que constituyen la 
PROGRAMACION ESTRUCTURADA, a la cual vamos a dedicar 
gran parte de este capítulo. 


2. RESOLUCION DE PROBLEMAS 


Frente a un problema, al que queremos dar una solución informá- 
tica, debemos seguir el proceso siguiente. En primer lugar hemos de 


lograr una comprensión clara del problema, tenemos que saber exac- 


tamente lo que deseamos que el ordenador haga, contemplando todos 
los casos posibles o, al menos, la mayor parte de ellos. 


Con esto elaboramos una primera aproximación al programa, en 
la que debemos tener en cuenta los datos más significativos, los pasos 
a seguir y cómo han de resolverse, los casos extremos, el modo de 
preveer errores, etc. 


Después, reordenando todos estos datos, obtendremos la primera 
aproximación del algoritmo. 


A continuación haremos un análisis de todos los datos, variables y 
funciones que intervienen, teniendo muy en cuenta todas las 
posibilidades existentes. A este paso le llamaremos análisis funcional. 
Seguiremos realizando un análisis orgánico, consistente en dar al 
análisis funcional una estructura definitiva. Fruto de este análisis 
orgánico ha de ser el diagrama del algoritmo, llamado diagrama de 
flujo u organigrama. 


Todo esto se resume en la figura siguiente: 


PRIMERA 
ANALISIS 
PROBLEMA dle 3 A- FUNCIONAL 


ANALISIS 
ORGANICO 


ORGANI- 
GRAMA 


PROGRAMA 


Finalmente, del organigrama pasaremos al programa o a la 
escritura del algoritmo en forma comprensible para el ordenador. 


3. DIAGRAMAS DE FLUJO 


Vamos a centrar nuestro estudio ahora en la elaboración de 
diagramas de flujo. Para ello se utilizan unos cuantos símbolos o cajas 
básicas que describimos a continuación: 


Comienzo del diagrama. 


Introducción de datos. 


Operaciones con símbolos específicos 
(asignación de valores, sumas, etc.) 


Bifurcación; dentro de él habrá una condición 
y. según su valor. se seguirá un camino u otro. 


Iteración; indica que todo lo comprendido 
entre esta caja y la caja SIGUIENTE se repetirá 
tantas veces como en ella se indique. 


Indica el final de la parte del 
diagrama a repetir. 


JOVUDL 


Escritura de mensajes y/o variables 
y/o expresiones. 


Se utiliza para indicar dónde continúa el 
diagrama, ya sea en otra página o en la misma. 
Final del diagrama. 


Cualquier algoritmo descrito por un diagrama de flujo ha de tener 
un único punto de comienzo, pero puede tener uno o más puntos de 
final. 


Vamos a ver a continuación algunos diagramas de flujo de algu- 
nos problemas. 


4. EJEMPLOS 


4.1. Diagramas lineales 


Supongamos que queremos hallar la suma de dos números; para 
ello necesitamos conocerlos, sumarlos y finalizar. Este es el procedi- 
miento que seguiríamos si tuviésemos que hacerlo a mano. 


El algoritmo, por tanto, podría ser el siguiente: 


19 Comenzar. 
29) Introducir A y B. (Estos van a ser los números.) 


32) Sumarlos. 
49) Escribir el resultado. 
59) Parar. 


El diagrama de flujo, en consecuencia, será el siguiente: 


COMIENZO 


4.2. Bifurcaciones 


Supongamos ahora que lo que queremos es hallar la división de 
los dos números. 


El algoritmo es algo más complejo que el anterior ya que debemos 
tener en cuenta un posible caso extremo. 


Lo primero que debemos conocer son los dos números y después 
he de dividirlos. Pero hay un caso en que esta operación no se puede 
realizar, es el caso en que el denominador valga cero. Sabemos que las 
divisiones por cero no existen; por ello, si se produjera, el ordenador 
dará un mensaje de error avisándonos de este hecho. 


El algoritmo sería el siguiente: 


19) Comenzar. 

29) Introducir A y B. (Estos serán los dos números.) 

39) ¿B es cero? 

40) En caso afirmativo, escribir: “No existe solución”. 

59) En caso negativo, dividir A entre B y escribir el resultado. 
62) Terminar. 


Vamos a escribir ahora su diagrama de flujo. 


COMIENZO 


Te 


NO HAY 


SOLUCION 


4.3. Más sobre bifurcaciones 


Veamos otro ejemplo en el que deberemos usar una bifurcación. 
Supongamos que introducimos dos números y queremos escribir el 
mayor de ellos. 


El algoritmo es fácil de escribir: 


19 Comenzar. 


29) Introducir A y B 

30) ¿Es A mayor que B? 

40) En caso afirmativo escribir A. 
59) En caso negativo escribir B. 
62) Terminar. 


Veamos su diagrama de flujo. 


COMIENZO 


4.4. Bucles 


En programación es muy frecuente que una operación o una serie 
de operaciones se repitan un número determinado de veces, o hasta 


que una condición preestablecida se cumpla. Supongamos el caso de 
la suma de 100 números. El algoritmo será el siguiente: 


19) Comenzar. 

22) Poner la variable SUMA a cero. 
39) Entrar el primer número. 

409) Sumarlo con SUMA. 

59) Entrar el segundo número. 

62) Sumarlo con SUMA. 


Así continuaríamos hasta que se hayan sumado los 100 números. 
Como podemos ver, este procedimiento es largo y aburrido de 
escribir, incluso una cosa tan sencilla como es sumar números puede 
resultar confusa. Nos damos cuenta entonces que necesitamos otro 
tipo de mecanismos que nos simplifique este problema. 


Para ello nos fijamos en que instrucciones tales como “entrar 
número” y “añadirlo a SUMA” se repiten tantas veces como números 
queremos sumar. Estas dos formarán un bucle conjunto de operacio- 
nes que se repiten un número determinado de veces. Nuestro algo- 
ritmo queda entonces modificado de la manera siguiente: 


19) Comenzar. 

29) Asignar cero a SUMA. 
39) Desde I=1 hasta 100. 
40) Entrar número. 

59) Añadirlo a SUMA. 
69) Siguiente 1. 


79% Imprimir SUMA. 
89) Terminar. 


Las instrucciones en las líneas 3, 4, 5 y 6 constituyen un bucle y nos 
permiten introducir y añadir los 100 números. 


Ahora necesitamos algún símbolo que represente esta operación 
gráficamente. Este es el cometido de las cajas básicas siguientes que 
anteriormente ya introdujimos: 


Nos da el número de veces que se han de repetir 
las instrucciones a las que se refiera. 


Nos indica el final de la serie de instrucciones 
a repetir. 


Todas las instrucciones contenidas entre estas dos cajas se repeti- 
rán el número de veces que se indique en la primera. Podemos, 
entonces, representar gráficamente el algoritmo anterior de la 
siguiente forma: 


COMIENZO 


DESDE |=1 
HASTA 100 


NUMERO 


SUMA = SUMA 
+ NUMERO 


SIGUIENTE | 


Aquí SUMA es un acumulador en el que se va guardando la suma 
de los números introducidos, 1 es un contador que nos da el número 
de veces que se ha ejecutado el bucle, o lo que es lo mismo, la cantidad 


de números introducidos, y NUMERO es una variable que contiene 
el número introducido. 


4.5. Anidamiento de bucles 


Todo lo visto hasta el momento puede combinarse para formar 
un solo diagrama. Puedo tener bifurcaciones dentro de un bucle o 
incluso otro bucle. De esto último vamos a ocuparnos a continuación. 
En general diremos que dos o más bucles están anidados si uno está 
contenido dentro de otro. En cambio se dice que están en paralelo si 
no tienen ninguna parte en común. 


A la hora de elaborar un diagrama de flujo y establecer en él una 
serie de bucles, éstos han de ser colados bien en forma de anidamiento 
o bien en paralelo. Es decir, los bucles no pueden entrecruzarse. 
También hemos de observar que no se puede acceder al interior de un 
bucle sin pasar por la caja en forma de hexágono que indica el número 
de repeticiones (iteraciones) a efectuar. Esto es fácil de comprender, 
pues si accedo al interior de un bucle sin pasar por el hexágono y 
continúo la ejecución, al llegar a la caja SIGUIENTE, el ordenador 
no sabrá qué variable ha de incrementar, ni en cuánto ha de hacerlo, y 
en consecuencia tendremos una situación crítica dentro del sistema. 


A la hora de elaborar nuestros diagramas hemos de tener muy en 
cuenta estas dos reglas. 


Casos no permitidos: 


a) Entrecruzamiento de bucles b) Acceso a un bucle sin pasar por 
el hexágono 


he sa SIGUIENTE 


Veamos ahora un ejemplo de bucles anidados; para ello 
supongamos que queremos escribir las tablas de multiplicar desde el 0 
hasta el 9. Lo vamos a hacer con dos bucles que anidaremos conve- 
nientemente. 


COMIENZO 


DESDE 1=0 
HASTA 9 


DESDE 1=0 
HASTA 9 


Por cada vuelta del bucle 1 se ejecuta el bucle J completo y se 
escribe la tabla de un número, de tal forma que cuando se halla 
completado el bucle 1 se habrán escrito 10 tablas. 


Cuando l vale 0, J varía de O a 9 escribiéndose: 


0x0=0 
0x1=0 
0x23=0 
0x3=0 
0x4=0 
0x53=0 
0x6=0 
0x7=0 
0Xx8=0 
0x9=1) 


Después se incrementará l en una unidad y se escribe la tabla del 1 
y se continúa hasta que l1 toma el valor 10. 


Un diagrama de bucles en paralelo es el siguiente: 


F 


RS 
LD ro) 
A a 


| 
la 


4.6. Generación de bucles 


Estas cajas de bucles no son imprescindibles en programación, ya 
que pueden generarse a partir de otras. Vamos a ver el diagrama de la 
suma de 100 números sin usar el hexágono. 


COMIENZO 


NUMERO 


SUMA = SUMA 
+ NUMERO 


I=1+1 


El funcionamiento de este diagrama es prácticamente el mismo 
que el ya visto. En la variable 1 se lleva una cuenta de los números que 
se han sumado. En la bifurcación si l es menor o igual que 100 se 
repiten las instrucciones “entrar número” y “añadir en suma”. Por 
cada número que se suma se aumenta una unidad a l, de tal modo que 
cuando l valga 101 se habrán sumado 100 números. En este momento 
se cumple la condición y se imprime el valor de suma. 


Debemos tener gran cuidado a la hora de crear bucles de este 
estilo, ya que si la condición no se cumpliese nunca, el bucle sería 
ejecutado infinitas veces, lo cual quiere decir que la máquina no 
pararía nunca. Hemos de estar siempre seguros de que la condición de 
fin de bucle se cumplirá en un determinado momento. 


De esta forma hemos visto que se pueden generar bucles a partir 
de sentencias de bifurcación y salto. 


5. CORRECCION DE UN PROGRAMA 


Una vez elaborado el diagrama de flujo, correspondiente a un 
cierto programa, debemos supervisarlo para asegurarnos de que 
realmente sirve para lo que queremos. También debemos comprobar 
que es correcto, es decir que no tiene errores. Para ello podemos 
seguir las siguientes indicaciones: 


|.— Debemos comprobar que todas las variables han tomado el 
valor inicial adecuado antes de su uso. 


2.— Debemos comprobar que todas las operaciones son permi- 
tidas. Es decir, que no existen bucles entrecruzados, que ne 


se accede al interior de un bucle sin haber pasado por el 
hexágono, que no hay casos extremos tales como divisiones 
por cero, etc. 


3.— Debemos comprobar que no hay bucles sin fin. Es decir, que 
todas las repeticiones acaban en un momento determinado. 


4.— Debemos comprobar que realmente hace lo que queremos. 
Para ello podemos dar unos valores a las variables de los que 
conozcamos la solución y recorrer con estos datos el dia- 
grama para ver si la obtenemos o no. 


Una vez verificado todo esto podemos escribir el diagrama en un 
lenguaje comprensible para el ordenador y ejecutarlo en la seguridad 
de que sirve para lo que queremos. 


a Í PREGUNTE, = URER=4 
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FIN 
P2) 


P3) 


P4) 


P3) 


P6) 


¿Qué es un algoritmo? 


¿En qué consiste el análisis funcional? 


¿Qué significado tiene la caja ) 


Haz el diagramade flujo del siguiente problema: Escribir los 50 
primeros números naturales. 


Cita dos casos que conozcas no permitidos a la hora de usar 
bucles en un programa. 


Escribir el diagrama de flujo del problema: Haz un programa 
que escriba los 10 primeros números naturales y la cantidad de 
ellos que son mayores que 7. 


No pasar la página hasta haber realizado los ejercicios planteados. 
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R1) Un algoritmo es un conjunto de instrucciones aplicables a 
objetos de un cierto tipo que nos conducen a la solución de un 
problema. 


R2) Eselanálisis que se hace de todos los datos, variables y funcio- 
nes que intervienen en el programa. 


R3) Representa una bifurcación, según se cumpla o no la condición 
en su interior se seguirá un camino u otro. 


COMIENZO 
DESDE | 
HASTA 50 


R4) 


SIGUIENTE 


R5) Entrecruzamiento y Acceso al interior de un bucle sin pasar por 
el hexágono. 


R6) 


COMIENZO 


DESDE 1 
HASTA 10 
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PROGRAMACION EN LENGUAJES 
ORIENTADOS A LA MAQUINA 


1. ELPROBLEMA DE LA TRADUCCION 


Como ya sabemos, en la memoria central del ordenador única- 
mente se pueden guardar ceros y unos, lo que significa que sólo 
operan con cantidades que tienen dos estados posibles, encendido o 
apagado o también estados cero y uno. 


A este lenguaje que sólo tiene dos símbolos lo llamaremos len- 
guaje binario o lenguaje máquina. Las instrucciones se representan 
por sucesiones de ceros y unos, sucesiones que para la máquina tienen 


significado. Al principio los ordenadores se programaban en este 
lenguaje. Incluso hoy día algunas aplicaciones se desarrollan en él 
para ganar tiempo de proceso y/o espaciado de memoria. No obs- 
tante, tiene la dificultad de que, al estar compuesto por sucesiones de 
ceros y unos, resulta muy difícil su comprensión y utilización. Por 
otro lado, al tener cada modelo de ordenador su propio lenguaje 
máquina, los programas que sirvan para uno no servirán para otro, 
siendo la traducción a los demás más lenta incluso que la elaboración 
en el otro lenguaje. 


Las instrucciones constan de dos partes, un código de operación y 
una dirección. Para decir, por ejemplo, que se sume el contenido de la 
célula de memoria 10100 con el contenido del acumulador propor- 
cionaré a la máquina la siguiente secuencia: 11110100, donde 111 sería 
el código de la suma de esa máquina. Vemos entonces lo engorroso 
que resulta programar así y, por ello, necesitamos encontrar lenguajes 
de programación que nos faciliten esta tarea. 


Asi surgieron los ensambladores que usaban códigos nemotécni- 
cos para la programación. El código de la suma podía ser SUM, esto 
hacía más comprensibles los programas y al mismo tiempo más 
fáciles de escribir. 


La instrucción anterior en un lenguaje ensamblador podría que- 
dar SUM 10100. 


Aún había un problema por resolver: cómo hacer que el ordena- 
dor entienda el código SUM como código de la suma. Para esto se 
alojaba en memoria un programa traductor que aceptaba como 
entrada estos códigos nemotécnicos y producía como salida su 


correspondiente código binario. De esta forma el ordenador podía ya 
ejecutar el programa. 


En cualquier caso, aunque en menor medida, los problemas de 
comprensión y manejo así como de dependencia de la máquina 
continúan estando presentes. 


Se intenta entonces construir lenguajes de programación que sean 
independientes de cada modelo de ordenador y más cercanos al 
lenguaje humano, son los lenguajes de alto nivel. 


Cada ordenador tiene un programa traductor que pasa de las 
instrucciones en alto nivel a las instrucciones en lenguaje máquina. 
Estos traductores reciben el nombre de metaprogramas. 


Tenemos dos tipos principales de metaprogramas: los compilado- 
res y los intérpretes. 


El compilador recibe como entrada el programa completo y lo 
traduce a lenguaje máquina desde la primera instrucción hasta la 
última. El intérprete va traduciendo el programa instrucción a ins- 
trucción según las recibe o según le toca ejecutarlas. Estos interpretes 
o compiladores suelen estar incorporados en el ordenador. 


Hoy día hay muchos lenguajes de alto nivel, cada uno de ellos 
adaptado a unas determinadas exigencias; así tenemos el COBOL, 
PL1, FORTRAN, ALGOL, BASIC, PASCAL, LOGO, APL, C, 
PILOT... Hablemos de algunos de ellos. 


LOGO 


Es un lenguaje típicamente educativo, diseñado para que el estu- 
diante pueda programar sus propias aplicaciones con relativa facili- 


dad. Fue creado en 1968 y desde entonces ha estado en continuo 
desarrollo. 


Tenía una doble finalidad, en primer lugar permitir a los más 
pequeños controlar el ordenador y en segundo lugar ser un lenguaje 
de programación que sirva para cualquier propósito. 


Sus principales características son: 


— Ser un lenguaje interactivo. Cualquier orden en LOGO puede 
ser ejecutada simplemente tecleándola. 


— Ser un lenguaje de procedimientos. Los programas se crean 
combinando órdenes que forman grupos (procedimientos) y 
usando estos como parte de otros. 


— Incorporar un área de programación, gráficos de tortuga, en 
la que es tremendamente sencillo realizar dibujos. 


PILOT 


Es un lenguaje diseñado especialmente para profesores, de tal 
manera que éstos programan un lección y los alumnos, mediante el 
ordenador, pueden recibir enseñanza individualizada, práctica y eva- 
luación, con frecuentes interacciones entre el programa y el estu- 
diante. 


Estas lecciones pueden ser escritas en cualquier lenguaje de pro- 
gramación, pero PILOT está diseñado especialmente para ello. 


El primer PILOT fue desarrollado a comienzos de los setenta y 
únicamente disponía de ocho instrucciones. Posteriormente fue 
ampliándose y hoy día dispone de 26, siendo más complejo y pode- 
roso que el original. 


Posee cuatro editores: el editor de lección, el de gráficos, el de 
sonidos y el de caracteres especiales, escribiéndose en cada uno de 
ellos la parte correspondiente de la lección. 


PASCAL 


En 1968, el profesor Niklaus Wirth, del Instituto Politécnico de 
Zurich, desarrolló un lenguaje teórico, el Pascal, que no existía en 
ninguna máquina, únicamente vivía en los libros. 


El Pascal fue diseñado para trabajar en una estructura top-down. 
Es decir, se descompone el problema principal en varios subproble- 
mas (objetivos más sencillos), de tal forma que la solución de todos 
éstos conducían a la solución del problema principal. 


Para ello, el Pascal consta de unos bloques, Procedure y Func- 
tion, que ejecutan pequeñas tareas independientes, pudiendo estar 
definido cada uno de ellos en función de otros. 


En 1970 por primera vez, el Pascal, funcionó en una máquina y se 
publicó el primer libro sobre él. 


Su lanzamiento definitivo se produjo hacia 1977, con la aparición 
del UCSD Pascal, que perseguía la portabilidad de programas de 
unas máquinas a otras. 


Por otro lado, teniendo en cuenta los cambios fulgurantes de la 


informática, podemos hablar del Pascal como un lenguaje ya anciano, 
siendo su mismo autor, Niklaus Wirth, quien ha creado su sucesor, el 
MODULA-. 


Wirth deseaba una idea sencilla para programar y aprender a 


programar, y es por ello por lo que el Pascal es un lenguaje primaria- 
mente dedicado a la enseñanza. 


Por esta razón Cospa, S.A. lo ha incluido en su programa de 
AULA DE INFORMATICA BASICA. 


LENGUAJES DE CUARTA GENERACION (L4G) 


La Informática, desde sus comienzos, está sujeta a constantes 
evoluciones; así tuvimos una primera, segunda, y tercera generación 
de ordenadores. En la actualidad, con la aparición de la Inteligencia 
Artificial, presenciamos el nacimiento de la cuarta generación. 


Nuevas técnicas y nuevos lenguajes la constituyen, éstos reciben el 
nombre de L46G. Algunos son el LISP, muy potentes en el tratamiento 
de listas y el PROLOG. En otro orden tenemos las cláusulas de Horn 
y los métodos de resolución básica. 


Algunas de las posibilidades que ofrecen los L4G, son facilitar los 
procesos de creación y construcción de aplicaciones, así como pro- 
mover un empleo productivo de estas aplicaciones en cualquier esta- 
dio de su funcionamiento, como son entradas. salidas, tratamientos y, 
en general. la comunicación de los usuarios con su sistema. 

Ofrecen manipulación de test, capacidad de prototipo, desarrollo 
y enseñanza asistida por ordenador (EAO), siendo esta última la que 
más interés tiene para nosotros. 


Con ella se pretende que el alumno encuentre en el ordenador un 
instrumento de ayuda en su aprendizaje, tanto a la hora de asimilar 


nuevos conocimientos como de practicar sus estudios. 


Con este propósito se han desarrollado “sistemas expertos” basa- 
dos, cómo no, en la inteligencia artificial. 


2. CODIFICACION. SISTEMAS DE NUMERACION 


Sabemos que la información se almacena en memoria en forma de 
ceros y unos. Si tenemos dos dígitos binarios pueden adoptarse cuatro 
estados posibles: 0,0; 0,1; 1,0; 1,1; en consecuencia podré almacenar 
cuatro informaciones distintas. 


La codificación consiste en establecer una correspondencia, lla- 
mada código, entre las informaciones a representar y las posibles 
configuraciones binarias, de tal manera que a cada información 
corresponda una única configuración binaria. La operación inversa 
se llama decodificación. 


2.1. Sistema binario 


Fue introducido por Leibnitz en el siglo XVII y es el más ade- 
cuado para las máquinas electrónicas. También recibe el nombre de 
sistema de numeración en base dos. Veamos cómo se escriben los 
números en sistema binario. 


l 
2 
3 11 
4 
5 


101 


6 110 
1 111 
8 1000 
9 1001 
10 1010 


Veamos ahora cómo efectuar operaciones con ellos. 


2.1.1. Suma de números en binario 


La tabla de la suma es: 


$ l 0 
0 0 
l 10 l 
o lo que es lo mismo: 
0+0=0 
0+1=1 
1I+0=1 
1I+1=10 


Si quiero sumar los números 1001 y 11101 procederé como en una 
suma normal, teniendo en cuenta la tabla de la suma. Comenzaré 
sumando los dígitos más a la derecha de los números: 


lt10 
+ 1.0.0 


l 
l 
0 
l 


El número por debajo indica el arrastre que llevo. A continuación 
se suman los dos siguientes más a la izquierda y al resultado se le 
añade el arrastre: 


Se continúa este proceso hasta que no quedan cifras a la izquierda 
de ninguno de los números ni arrastres por sumar: 


Oo -|S — 
So -|OS o 


—= Ql= — 


El uno más a la izquierda del resultado corresponderá evidente- 
mente al último arrastre. 


Otros ejemplos son: 


0 
l 
0 


2.1.2. Diferencia de números en binario 


Para la resta, la operación es análoga a la suma, teniendo en 


cuenta que: 


0 —.0=0 y no hay arrastre 


0— 1= 1 y hay una arrastre de 1 


| —0= 1 y no hay arrastre 
| — 1=0 y no hay arrastre 


Se procede como en la suma, restando las cifras más a la derecha y 


avanzando hacia la izquierda. 


a a ms O 


OS -=|OS — 


OQ|- — 


ODO!|- — 


2.1.3. Multiplicación de números en binario 


La tabla de multiplicar para el sistema de numeración en base dos 


es la siguiente: 


o lo que es lo mismo: 


11 
== OOGo 


A continuación vamos a multiplicar los números 101101 y 101. 
Siguiendo la tabla del producto se multiplica el dígito más a la 
derecha del multiplicador por el multiplicando: 


A continuación se repite el proceso siguiendo el orden establecido 
de derecha a izquierda: 


Sojo o 


| 

| 
NS 
00.000 
lO 11471 


Una vez multiplicados todos los dígitos se suman todos los pro- 
ductos parciales obtenidos: 


SS alo 


2 PA 
ol- oo 
oloo — 
Sc|-o- 


0 
0 
| 


Comprueba que los resultados de los siguientes ejemplos son 


correctos: 
1.0.0 1 1O1-0 1 LO1.0 11 
lo] ro 0 
10.01 LO1.0 1 l.10110 
10.01 0.0.0.0 101.0 11 
LO1.0 11 11-01 10100010 
1000001 


2.1.4. Cociente de números en sistema binario 


El cociente se efectúa de forma análoga; se aplican las reglas de la 
división normal, que todos conocemos. Veamos un ejemplo. Supon- 
gamos que queremos hallar el cociente de los números 101101 entre 
| 1. Para ello tomo tantas cifras del dividendo como tenga el divisor. 
En este caso 10 es más pequeño que 11; tomo entonces otra cifra, 

) obtengo 101. Ahora he de hallar el mayor número (0 ó 1) tal que al 
multiplicarlo por el divisor, 1 1, me dé el resultado posible más cercano 
a 101, pero sin ser mayor que él. Este número es el 1. 


bajo el siguiente dígito del dividendo 


Repito la operación desde el principio hasta terminar todos los 
dígitos dígitos del dividendo y quedará: 


porros [11 


0 
— | 
0.0 11 
| 
0.0 
El cociente de esta división es, por tanto, 1111 y el resto es 0. 


Podemos comprobarlo realizando la prueba de la división que, como 
sabemos, viene dada por la fórmula: 


Dividendo = divisor . cociente + resto 


No es necesario escribir todas las diferencias parciales sino que 
éstas pueden efectuarse directamente. En este ejemplo hemos prefe- 
rido especificarlas para lograr una mayor claridad en la exposición. 


Veamos a continuación algunos ejemplos más. 


rroo [10 ltto0.0 lO 1 
0 


0.1.0 1.0 0.1.0 
0.0.0 0 


0 | 
lo 1 


2.1.5. Paso de decimal a binario y viceversa 


Vamos a ver ahora la forma de pasar del sistema binario al sistema 
decimal. Supongamos, para ello, que quiero expresar el número 1101 
en decimal. Cuento el número de cifras que tiene el número, en este 
caso cuatro, y hago: 


1101¿=1.2+1.2+0.214+1.20 


donde los coeficientes de las potencias de dos son los dígitos que 
componen el número, siendo el dígito más a la izquierda de éste el que 
multiplica a la potencia de dos de mayor exponente. Este exponente 
ha sido hallado restando una unidad al número de cifras que tiene el 
número a expresar en decimal, por tanto el mayor exponente es igual 
a la cantidad de cifras del número menos una. 


Efectuando ahora la operación indicada en la expresión anterior 
tenemos que: 


MA a PE A 


Por tanto, 1101/7 corresponde al número 13 en base 10. 


Veamos otro ejemplo. 


HOM ¿=1.254 1.244 1.2340.241,214+1,20=32+ 16+8+0+2+1=59 ¡1 


Para efectuar el paso contrario, es decir de base 10 a base 2 se 
divide el número en base 10 por 2 tantas veces como sea posible y el 
último cociente seguido de los restos en orden ascendente de las 
divisiones sucesivas me darán el número en sistema binario. Como 
aplicación vamos a pasar el número 13 a base 2. 


13 


2 
de E | 
EA 


as 3 2 
mi E 


Por tanto 1319 = 1101 


Veamos otro ejemplo: vamos a pasar 59 en base 10 a base 2. 


s9 |2 


Por tanto 5917 = 111011. 


Ahora que ya sabemos cómo pasar de binario a decimal y vice- 
versa podemos utilizar este conocimiento para efectuar operaciones 
en binario. Para ello pasamos los números, con los que queremos 
operar, a decimal, efectuamos la operación correspondiente en sis- 
tema decimal y después pasamos de nuevo el resultado a sistema 
binario. Es decir: 


BINARIO === DECIMAL. === BINARIO 


Veamos un ejemplo. Supongamos que queremos multiplicar 100 
y 101; para ello pasamos ambos a base 10: 


100,,=1.2+0.21+0.2=4+0+0=4/¡p 
1014=1.2+0.214+1.2=4+0+1=5;1p 


Ahora multiplico estos resultados obtenidos en base 10: 


5.4=20 


y paso el resultado a binario: 


20 La 


IG la 


Por tanto 2019 = 10100/. 


Podemos comprobar el resultado efectuando la operación como 
hemos visto anteriormente, y resultará: 


Como podemos comprobar el resultado coincide; por tanto, 
ambos métodos son equivalentes. 


2.2. Sistema hexadecimal 


También recibe el nombre de sistema de numeración en base 16. 
Se introduce porque es más cómodo de utilizar ya que su escritura 
es más condensada. 


Veamos algunos números hexadecimales y sus equivalentes en 
binario y en decimal: 


HEXADECIMAL BINARIO DECIMAL 
0 0 0 


| 
2 10 2 
3 11 3 
4 100 4 
5 101 5 
6 110 6 
7 111 7 
8 1000 8 
9 1001 9 
A 1010 10 
B 1011 11 
C 1100 12 
D 1101 13 
E 1110 14 
F 1111 15 
10 10000 16 


Nos damos cuenta de que 100002 = 10(¡6 y mientras que en base 
dos este número necesita cinco dígitos para su escritura, en hexadeci- 
mal tan sólo necesita dos. Podemos hacernos una idea de lo que esto 
significa si consideramos que 101101101112 = 5B7(16. 


En hexadecimal se necesitan más dígitos para representar los 
números del 10 al 15; estos son A, B, C, D, E, F. 


La aritmética hexadecimal, así como las conversiones a decimal, 
se deducen de los procedimientos presentados para el sistema binario, 


ya que son idénticos. 


3. REPRESENTACION DE LOS NUMEROS 
EN LAS MAQUINAS 


Los ordenadores están capacitados para realizar operaciones 
aritméticas; pero para ello han de recibir los números en una forma 
que puedan comprender, han de recibirlos según unos formatos bien 
definidos. Vamos, a continuación, a analizar estos formatos y su 
composición. 


Principalmente están compuestos por la dimensión y por el 
convenio escogido para la representación o código del número. 


Respecto a la dimensión podemos decir que las máquinas admiten 
formatos de longitud fija y según que el número ocupe una palabra, 
media palabra, dos palabras, ... de memoria se hablará de longitud 
simple, media longitud, doble longitud,... 


También podemos tener formatos de longitud variable, bajo los 
cuales un número va codificado con una cantidad variable de caracte- 
res. Vamos a estudiar dos tipos de formatos, el formato fijo o formato 
en coma fija y el formato flotante o formato en coma flotante. 


3.1. La coma fija 


Es la forma más usual de representar números en memoria. El 
formato en coma fija consiste en considerar los números como ente- 
ros y es el programador el encargado de colocar la coma. 


Respecto a la representación o código podemos tener formatos de 
longitud variable, bajo los cuales un número va codificado con una 
cantidad variable de caracteres. Vamos a estudiar dos tipos de for- 


matos: el formato fijo o formato en coma fija, y el formato flotante 
o formato en coma flotante. 


Al igual sucede con el producto ya que al multiplicar dos números 
de n bits puedo obtener como resultado un número de 2n bits de 
longitud. En este caso el número es representado en coma fija de doble 
longitud. 


Esto viene representado en la figura. 
l1.0 

+ 411 
O 


1 
oc|o o 


Io 1 
0.0 
lo 1 


o|o o 


l 

E 

O O O 

Otro inconveniente es que el programador se ve obligado a cono- 

cer y recolocar el lugar de la coma al efectuar las operaciones y si desea 

una exactitud aceptable en el resultado se deben almacenar conve- 

nientemente los resultados intermedios que vayan obteniéndose. La 
siguiente representación que vamos a estudiar evita esto. 


3.2. La coma flotante 


El formato de representación en coma flotante consiste en escribir 
los números en la forma SM . E%, siendo S el signo del número, M la 
mantisa, E la base del sistema de numeración y X el exponente del 
número. Generalmente, los números en coma flotante se representan 
en la máquina con el signo en primera posición, seguido del expo- 
nente y la mantisa. 


LS | exponente | mantisa 


Vamos a ver ahora cómo se representan y lo que significan cada 
una de la componentes del número flotante. 


El signo se representa por 0 para el más (+) y | para el menos (—). 
El exponente generalmente representa una potencia de dos, a excep- 
ción de algunos ordenadores (en el IBM/360 representa una potencia 
de 16). 


La mantisa puede ser considerada como entera, en cuyo caso se 
supondrá la coma inmediatamente a su derecha, o como fraccionaria 
y la coma estará situada inmediatamente a su izquierda. De esta 
forma 125. 106 se escribirá según el primer convenio como 


aa 
o 


signo exponente mantisa 


y según el segundo 
ol9|1j2[s[ofolo| 
a 


signo exponente mantisa 


4. ALGEBRAS DE BOOLE 


El álgebra de Boole fue introducida por primera vez por el 
matemático ingles George Boole, y a pesar de ser un instrumento 
eminentemente matemático constituye una herramienta de suma uti- 
lidad a la hora de representar las redes y circuitos electrónicos de que 
están compuestos los ordenadores. 


Consiste en hallar la verdad o falsedad de frases más o menos 
complejas a partir de la verdad o falsedad de frases más sencillas. 
A éstas las llamaremos proposiciones simples o sentencias, y a aqué- 
llas, proposiciones compuestas. 


Diremos entonces que las proposiciones simples son aquellas que 
tienen un solo argumento, mientras que las compuestas contendrán 
más de uno. 


El valor de verdad lo representamos por un 1 mientras que el valor 
de falsedad vendrá caracterizado por un 0. 


Tenemos tres operadores lógicos básicos: “Y” (AND), “O” (OR) y 
“NO” (NOT), y su valor de verdad viene dado por: 


a) Ay B(A 2 B), es verdad (un uno) si lo son A y B, donde A y B 
representan proposiciones simples. 


b) AoB(AY B), es verdad siloes A oloes Bolo son las dos a la vez. 
c) No A (A), es verdad si A es falso. 
d) Cualquiera de ellas será falsa en otro distinto de los expresados. 


Esto puede representarse gráficamente mediante tablas de verdad 
de la manera siguiente: 


Tanto A como B, al ser proposiciones simples, pueden tener dos 
valores posibles, verdad o falsedad, que dan lugar a cuatro combina- 
ciones posibles distintas de ceros y unos. 


A 
l 
0 


— ol|>l 


A partir de estos operadores podemos hallar la tabla de verdad de 
cualquier proposición compuesta. Como ejemplo vamos a calcular 
las de (AA B) (AA B). Para ello hallamos primero la de las 
proposiciones parciales y después la final. 


AAB|(AAB)V(AA B) 


Veamos algún ejemplo más. Para ello supongamos que se nos 
pide hallar la tabla de verdad de la proposición 


(AAB)v(A y B) 


En primer lugar analizaremos todas las proposiciones que com- 
) ponen la pedida, sólo dos, A y B; después vemos las parciales que nos 
van a hacer falta. 


Nos damos cuenta de que la proposición pedida es un “O” de otras 
dos más simples, (AA B) y (AY B), calculamos la tabla de verdad de 
estas y a partir de ellas obtendré la de la total. Ahora bien (A 7 B) 
necesita otros dos cálculos anteriores, el de B y el de A” B; después ya 
podré hallar el primero. 


(AMB) | AVBÍ| (AN B)V(AY B) 


Por tanto, la proposición pedida es siempre verdadera, sean cuales 
sean los valores de A y B. Se dice entonces que es una tautología. 
Vamos a ver a continuación algunas leyes del álgebra de Boole cuya 
demostración se sigue inmediatamente de las definiciones, aunque 
aquí no vamos a presentarla. 


|.— AY A=A para cualquier proposición A 
2.— AN B= A para cualquier proposición A 
3— AVB=BVAp.t.AyB 
4.— ANB=BAAp.t.AyB 
5.— (AV B)YC=AV(BYC)p.t.A,ByC 
6.— (AABAC=AMBAO)p.t.A,ByC 
7.— AN(BYC)=(AMB)V(ANC)p.t. A,ByC 
8. AV(BAC)=(AV B)MAVO)p.tA.ByC 
9.— (AMB)=AVBp.tAyB 
10.— (AVB)=AABp.t.AyB 
Como indicación de las demostraciones podemos decir que se 


basan en construir la tabla de verdad de ambos miembros de cada 
igualdad y ver que coinciden. 


Veamos ahora una aplicación práctica del álgebra de Boole: la 


representación de circuitos eléctricos. 


Si tenemos un hilo conductor y un interruptor (switch), sobre él la 
corriente circulará únicamente en el caso de que el interruptor esté 


cerrado. 
ga No circula corriente, pues el 


a) 
interruptor está abierto. 


b) | Circula corriente, pues el 


interruptor está cerrado. 


Podemos representar mediante ceros y unos le hecho de que 
circule o no corriente por el hilo de la siguiente forma: asignamos un | 
(b) al hilo si circula corriente por él y un O (a) en caso contrario. Esto 
tiene algo que ver con el álgebra de Boole, ya que ésta también 
utilizaba ceros y unos. Veamos cómo podemos hacerlos correspon- 
der. Diremos que un circuito es una red de hilos conductores con 
interruptores por los que puede pasar o no corriente (estado l o 
estado 0). 


a) Circuito en serie 


Supongamos el circuito > a E o 
A B 


C 


Al punto C únicamente llegará corriente si los interruptores (swit- 
ches) A y B están los dos cerrados, pudiendo tener cada uno de ellos 
dos estados posibles: O (está abierto y por tanto no pasa corriente) ó 1 
(está cerrado y por tanto pasa la corriente). De aquí deducimos que 
podemos tratar a A y Bcomo dos proposiciones simples ya que éstas 
también tenían dos estados posibles (0, falsedad, y 1, verdad). 


Si escribimos una tabla con todos los estados posibles de los 
interruptores (proposiciones), A y B para saber en qué casos llega 
corriente obtenemos: 


Como podemos comprobar, esta tabla es igual a la del operador 
lógico “Y”; por tanto un circuito en serie con dos switches, A y B, 
puede considerarse igual a la proposición A 4 B, donde, en este caso, 
A y B representarán a los interruptores. 


b) Circuito en paralelo 


Un circuito en paralelo es un circuito que responde al diagrama: 


B 


Observamos que para que llegue corriente a C únicamente es 
necesario que A y B o los dos están cerrados. Siguendo el razona- 
miento anterior construimos su tabla y resulta: 


que es la misma que tiene la proposición AY B, de donde deducimos 


que un circuito en paralelo se corresponde con la proposición lógica 
AV B. 


A partir de estas dos podemos construir circuitos más complejos y 
además, utilizando las reglas del álgebra de Boole podemos reducir 
circuitos sumamente complejos a otros más sencillos. Veamos algu- 
nos ejemplos. 


Supongamos que se nos pide hallar la expresión booleana aso- 
ciada al circuito 


Si lo analizamos vemos que es un circuito serie constituido por 
otro circuito, esta vez en paralelo, y C. Como el circuito serie viene 
caracterizado por un operador “Y”, vemos que la expresión booleana 
asociada será de la forma 


“ALGO” AC (1) 
y nos faltará determinar el “ALGO”. 


Ahora bien, este “ALGO” es un circuito en paralelo con interrup- 
tores A y B, y sabemos que viene caracterizada por un operador “O”. 
Por tanto “ALGO”= AY B, de donde sustituyendo en (1) obtenemos 
la expresión buscada: 


(AV B)AC 


Veamos ahora el paso contrario, es decir dada la expresión boo- 
leana hallar el circuito asociado a ella. 


Se pide encontrar el circuito asociado a la expresión (A7 B)Y C. 
Analizándola vemos que su operador principal es un“  ”, de donde 
deduzco que el circuito será en paralelo y estará constituido por 
(A? B) y C. Ahora bien, A” Brepresenta un circuito serie, por tanto 
la representación buscada será: 


De toda esta exposición podemos afirmar ya que el álgebra de 
Boole, además de herramienta matemática, es utilísima para la repre- 
sentación y simplificación de circuitos eléctricos. 


Y RESUMEN 


PI) 
P2) 
P3) 
P4) 
PS) 
P6) 
P7) 
P8) 


P9) 


REPASO CAPITULO 49 


Cita dos clases de metaprogramas que conozcas. | po 
Suma. en binario, los números a=1100001 y b=310001. 
Resta, en binario, los números del ejercicio anterior. 
Multiplica, en binario, los números a=110 y b=11. 
Divide, en binario, 10010 entre 11. 

Expresa en binario el número decimal 325. 

Expresa en decimal el número en binario 111. 


Cita dos tipos de representaciones que conozcas de los números 
en la máquina. 


Halla la expresión booleana asociada al circuito. 


% - 
C D 


P10) Halla el circuito correspondiente a la expresión 


(AYB)*ESDY EL 


No pasar la página hasta haber realizado los ejercicios planteados. 


<bdsog 


l 
l 
0 
l 
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00.00 

0.0.0 

00.00 

100.0 
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R1) Compiladores e intérpretes. 
l 
l 
l 
0 
l 
0 


R2) 
R3) 
R4) 
R5) 


R6) 325 [2 — 
Lo 162 |2 
e [2 
1, 0 (2_ 
So ao la 
Soo le 
Soros lo 


Por tanto 32514 = 1010001012 
R7) MMoy=1.2+1,21+1,2=4+2+1=71p 
R8) Formato en coma fija y formato en coma flotante. 


R9 ((A% B V(CAD)AE 


R10) 
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CAPITULO 52 


EDICION Y MANDATOS 
EN EL LENGUAJE BASIC 


l. EL PROGRAMA EDITOR 


El programa EDITOR del lenguaje BASIC nos va a permitir la 
introducción, línea a línea, de nuestro programa, guardándoselas por 
si deseamos efectuar modificaciones posteriores, como son borrar 
líneas que hubiéramos escrito, introducir o agregar nuevas líneas u 
ofrecernos la visualización de ciertas líneas. 


El programa EDITOR tiene que ser capaz de poder realizar todo 
tipo de operaciones tal que, el operador o el usuario, pueda efectuar 
cualquier tipo de modificaciones en un programa BASIC. 


Este tipo de operaciones se concretan en tres fundamentales: 

-— MODIFICACION: Un carácter podrá ser modificado o 
cambiado por otro. 

— INSERCION DE CARACTERES Y LINEAS: Podremos 


insertar nuevos caracteres dentro de una línea, y nuevas líneas. 


— BORRADO DE CARACTERES Y LINEAS: podremos 
borrar los caracteres deseados dentro de una línea y también 


borrar o eliminar líneas. 


Estamos dispuestos ya a empezar a introducir un programa 
BASIC; empezaremos, pues, a trabajar de una forma limpia y orde- 
nada, para lo cual, BÓORRAREMOS LA PANTALLA después de 
haber borrado el programa existente en memoria, si lo hubiere, con el 
comando NEW. 


Para borrar la pantalla hagamos: 
ESC O 


Pulsando y liberando la tecla ESC. 
Presionando y manteniendo la tecla SHIFT mientras pulsamos y 


liberamos la tecla P. 


También podemos usar el comando HOME y <RETURN>. 


Ya podremos empezar a introducir nuestro programa, pudiendo, 
cada vez que queramos, borrar la pantalla ya que el borrado de la 
pantalla no lleva consigo nada más que eso; es decir, nuestras líneas de 


programa permanecerán en memoria. 


2. LISTADO DE LINEAS 


Una vez realizado el programa podremos listar las líneas que 
deseemos mediante el mandato LIST. 


LIST número de línea 
que nos listará solamente dicha línea. 
LIST 10 
nos visualizará la línea 10. 
LIST Número de línea. número de línea 


Nos listará las líneas existentes entre ambos números de línea y las 
líneas especificadas en el mandato. 


LIST 100, 250 
Nos lista desde la línea 100 hasta la línea 250 ambas inclusive. 
LIST, número de línea 


Nos lista desde el inicio del programa hasta el número de línea 
indicado. 


LIST, 100 


Nos lista desde el comienzo del programa hasta la línea 100 
inclusive. 


LIST número de línea, 
Nos lista desde dicho número de línea hasta el final del programa. 
LIST 100, 


Nos lista la 100 y todas las que le siguen hasta el final del 


programa. 


Es conveniente saber que el listado de un programa con un 


número grande de líneas puede pararse momentáneamente utilizando 
CTRL-S. Mantener la tecla CTRL presionada hasta que hayamos 
pulsado la $. 


Una vez parado el listado podremos observar las líneas que 
deseemos. Continuaremos la visualización del programa pulsando el 
espaciador. La tecla HALT también tiene esta función. 


3. EDICION DE UNA LINEA 


Nuestro objetivo, en este momento, es poder realizar cualquier 
tipo de MODIFICACIONES, INSERCIONES, y BORRADOS de 
caracteres dentro de una línea. Para llevar a cabo tal finalidad estu- 
diaremos el funcionamiento de algunas teclas. 


Tecla [—-] 


Avanza y va guardando todos aquellos caracteres por los que 
pasa. Copia dichos caracteres. 


Tecla [—] 


Retrocede y elimina (sin borrarlo de la pantalla) todo carácter 
por el que pasa. 


NOTA: Otros ordenadores admiten en su teclado la tecla REPT y 
con la siguiente función: 


Tecla REPT (repetición) 
Si pulsamos, en primer lugar, la tecla o carácter a repetir después 


de REPT se producirá la repetición de dicho carácter mientras 


ambas permanezcan presionadas. Cuando liberemos REPT cesa 
la repetición. 


Si la tecla a repetir es —= se producirá una copia rápida de 
caracteres. 


Si la tecla a repetires «.—— se producirán borrados de caracteres. 


4. MOVIMIENTO DEL CURSOR 


Efectuemos un listado de nuestro programa, y éste nos aparecerá 
en pantalla. Nuestro objetivo es ahora aprender a posicionar el cursor 
en cualquier lugar de la pantalla. 


Para mover el cursor a lo largo de toda la pantalla se deben utilizar 
dos teclas. Primero se pulsa ESC y después A, B, C, o D. 


ESC A desplaza el cursor una posición a la derecha. 
ESC B desplaza el cursor una posición hacia la izquierda 
ESC C desplaza el cursor una posición hacia abajo 


ESC D desplaza el cursor una posición hacia arriba 


Con el Monitor de Autolanzamiento también podemos utilizar 
las teclas I, J, K y M junto con la tecla ESC para mover el cursor hacia 
la derecha, izquierda, arriba y abajo respectivamente. 


Existe una diferencia importante en la forma de trabajar con ESC 
y las letras I, J, K y Ma ESC y A, B, C y D. Cuando pulsamos ESC el 
COSPA AULA-1 se pone en modo EDITOR; hecho esto solamente 
necesitamos pulsar la I, J, K o M para mover el cursor a lo largo de 
la pantalla, es decir, no necesitaremos pulsar ESC cada vez. 


El COSPA AULA-] permanece en modo EDITOR mientras se 
están pulsando las teclas I, J, K o M, esto nos permite mover el cursor 
más de un espacio sin tener que reteclear ESC cada vez. 


Nos saldremos del modo EDICION pulsando cualquier otra tecla 
que no sea I, J, K, M, CTRL o SHIFT. 


5. CORRIGIENDO LINEAS DE PROGRAMA 


Hasta ahora hemos visto cómo escribir programas, cómo ejecu- 
tarlos y cómo listarlos; vamos a ver ahora cómo corregir, modificar y 
eliminar líneas de programa. Si estoy escribiendo la línea: 


10 PRINT "O 


y me doy cuenta de que he cometido un error, únicamente he de 
volver hacia atrás, con la tecla de flecha a la izquierda, y escribir 
encima de la M una N, después usaré la tecla de flecha a la derecha, 
para volver a la posición donde me encontraba y poder seguir 
escribiendo. 


Si quiero cancelar la línea actual de escritura, esto es, si estoy en la 
situación: 
J] 10 PRINT*O 


y deseo eliminar esta línea, pulsaré la tecla DEL LINE, el efecto será: 


J 10PRINTA 
JO 


la línea ha sido cancelada. Este mismo efecto se obtiene pulsando 
CTRL-X. Es decir, pulsar X mientras se mantiene apretada la tecla 
CTRL, 


Si desea borrar algún carácter de una línea, puede usar la tecla 
DELC, 


En la situación: 


10 PRRINT “O 


debe borrar una R; para ello, se posiciona con la tecla de flecha a la 
izquierda en una de ellas y pulsa DELC: 


10 PRAINT ” 
ahora utilice la tecla de flecha a la derecha, para posicionarse en el 


sitio correcto, y continuar escribiendo. Si lista la línea 10, verá que 
una de las R ha sido suprimida. 


El procedimiento normal para modificar líneas de programa es 


listar la línea deseada: 


10 PRRINT “...” 
SS Y 
Utilizar las teclas de flecha en I, J, K, M, para subir, en combina- 
ción con ESC (pulsar ESC y la correspondiente de éstas): 


1[0] PRRINT “....” 
l 
Reconocer el primer carácter de la línea, para que el ordenador 
sepa qué línea va a modificar: 


[1] 0 PRRINT “...” 
a 


Una vez hecho esto, utilizar la tecla de flecha a la derecha (no la 
barra de espaciado, pues ésta borraría los caracteres por los que va 
pasando) para desplazarse al lugar donde queramos corregir y seguir 


los pasos ya indicados. Cuando ya haya terminado de corregir, debe ir 
hasta el final de la línea, pues si pulsáramos <RETURN>, para 
aceptar las correcciones. Es importante salir hasta el final de la línea, 
pues si pulsáramos <RETURN> estando el cursor en medio de la 
línea, todo lo que se encuentre a la derecha del cursor se perderá. 


Veamos cómo borrar líneas de programa: 


Si queremos suprimir una sola línea, basta con escribir su número 
y pulsar <RETURN>. Si queremos borrar varias líneas, usaremos el 
comando: 


] DEL n.m 
esto borrará todas las líneas desde n hasta m, ambas inclusive. 


Si escribo un número de línea ya existente y una nueva instruc- 
ción, la definición antigua de ese número se desechará, aceptándose la 
más moderna. 


5.1. Inserción de caracteres (uso de la tecla INSC) 
Supongamos la situación: 
J 10 PINT O... 


y, evidentemente, queremos insertar una R entre la P y la 1. Para ello, 
se colocará el cursor en la posición anterior a donde se quiere insertar: 


J 10 [P] INT 


Pulsamos INSC. El cursor se sitúa como se indica abajo: 


O 
] 10 PINT 


Ahora, introducimos los caracteres a insertar: 


RO 
] 10 PINT 
Pulso <RETURN>: 
R 
J 10 PONT 
Continúo: 
R 
J 10 PINT O 


Si listamos la línea, veremos que la inserción ha sido aceptada. En 
caso de no ser la línea actual la deseada para insertar, utilizar las teclas 
de flechas I, J, K, M, en combinación con ESC, para acceder a la 
línea. 


6. MANDATOS DE UTILIDAD 


CLEAR 
Formato: CLEAR 


Asigna cero a todas las variables numéricas y elementos numéri- 
cos de un ARRAY (matriz o vector) y la constante alfanumérica nula 
(“”) a todas las variables alfanuméricas y elementos de ARRAY 
alfanuméricos. La ejecución de este mandato equivale volver a iniciar 
el mandato RUN. 


HOME 
Formato: HOME 


Borra la pantalla y posiciona el cursor en la fila 1, columna 1, tiene 
el mismo efecto que la combinación ESC- 


NEW 
Formato: NEW 


Borra el programa BASIC residente en memoria RAM, no 
borrando la pantalla. Es conveniente utilizar este mandato cuando 
nos dispongamos a introducir un programa nuevo. 


RUN 
Formato: RUN 


Inicia la ejecución de nuestro programa. 


STOP 
Formato: STOP 


Para la ejecución de un programa temporalmente. Se puede conti- 
nuar la ejecución de dicho programa con el mandato CONT. 


¡) 


P2) 


ES) 


REPASO CAPITULO 52 


Una vez introducido nuestro programa, queremos listar desde 
la línea 200 hasta el final del programa. ¿Cuál sería la codifica- 
ción del mandato” 

Deseamos borrar en nuestro programa todas las líneas iniciales 
desde la 10 hasta la 40, ésta inclusive. Codificar el mandato que 
lo realice. 


Queremos insertar una línea en nuestro programa entre la línea 
150 y la 160. ¿Qué numeros de línea podría llevar la línea 
insertada?” 

¿Cuáles son las combinaciones de teclas para mover el cursor a 
la derecha” 

¿Qué mandato inicia la ejecución de un programa? 


¿Cuál es la diferencia existente entre los mandatos NEW y 
HOME? 


No pasar la página hasta haber realizado los ejercicios planteados. 


R1) 
R2) 
R3) 


R4) 
RS) 
R6) 


SOLUCIONES CAPITULO 52 


LIST 200, 
DEL 10,40 


Cualquier número de la siguiente lista sería válido: 151, 152, 
153, 154, 155, 156, 157, 158, 159. 
Preferentemente utilizaremos como número de línea el 155 por 


si tuviéramos que realizar más inserciones. 
ESC-A o ESC-I. 
El mandato RUN. 


NEW borra el programa en memoria, no la pantalla. 
HOME borra la pantalla, no el programa en memoria. 
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CAPITULO 62 
CONSTANTES Y VARIABLES 


1. DEFINICIONES DE CONSTANTES 
Y VARIABLES 


Definiremos como CONSTANTES a todos aquellos datos que 
permanecen con un valor inalterable o constante a lo largo del 
programa. 


Definiremos como VARIABLES a todos aquellos datos que 
pueden tomar distintos valores a lo largo del programa. 


Observaremos mejor esta diferencia poniendo un ejemplo de un 
programa que nos calcula la suma de dos números cualesquiera. 


10 REM PROGRAMA QUE CALCULA LA SUMA DE DOS NUMEROS 
20 INPUT "ENTRA EL PRIMER NUMERO "¿Ni 

30 INPUT "ENTRA EL SEGUNDO NUMERO "¡NE 

40 PRINT "LA SUMA ES "¿N1 + N2 

530 END 


En este programa “ENTRA EL PRIMER NUMERO”, 
“ENTRA EL SEGUNDO NUMERO”, “LA SUMA ES =” son 
constantes, ya que nunca cambiarán su valor mientras que Nl y N2 
son variables puesto que podremos introducir mediante la instrucción 
INPUT cualquier pareja de valores numéricos. 


2. PALABRAS BASIC Y NOMBRES CREADOS 


Dentro de los nombres o palabras que nos encontramos en un 
programa en lenguaje BASIC, aparte de las ya mencionadas constan- 
tes, podemos distinguir dos tipos: las palabras Basic y los nombres o 
palabras creadas por el programador. 


En el programa anterior la palabra INPUT es una palabra BASIC 
ya que el intérprete del BASIC la identifica como una operación a 
realizar de entrada de datos, también en el programa anterior la 
palabra PRINT es palabra BASIC (en este caso como una operación 
a realizar de salida de datos). Igualmente son palabras BASIC: REM 
que significa que es una línea de comentarios, y END que, cuando se 
ejecute, acabará el programa la ejecución. En cambio, Nl y N2 son 
palabras creadas por el PROGRAMADOR cuando ha necesitado 
definir dos campos en memoria para almacenar cada uno de los 
números entrados. 


Definiremos el conjunto de palabras BASIC como el conjunto de 
todos los nombres que tienen significado especial para el programa 
intérprete BASIC. Estarán incluidos en este conjunto todos los 
nombres de sentencias, todos los nombres de funciones y todos los 
hombres de mandatos con que cuenta un lenguaje BASIC dentro de 
un determinado ordenador. 


Debemos hacer una puntualización referente a las palabras 
BASIC consistente en que éstas no solamente están constituidas por 
las palabras más importantes de una sentencia sino por todas las 
palabras con significado especial para el INTERPRETE del BASIC 
dentro de un formato. 


Si tenemos un programa que nos imprime en pantalla números 
enteros del l al 10. 


10 FOR I = 1 TO 10 


20 PRINT 1 
30 NEXT I 
40 END 


Serían palabras BASIC: FOR, PRINT, END y, además, también 
lo serían TO y NEXT puesto que éstas se encuentran dentro del 
formato de la instrucción FOR. 

Definiremos como PALABRAS CREADAS POR EL PRO- 
GRAMADOR a todas aquellas que tienen para el PROGRAMA 
INTERPRETE un significado de variable (o campo de memoria). 


En el programa anterior, | es una variable o una palabra creada 
por el programador. 


Nos ha interesado diferenciar estos dos tipos de palabras ya que 


el programador nunca podrá identificar a una variable con el nombre 
de una palabra BASIC. Tampoco podremos crear un nombre de 
variable que contenga a una palabra BASIC. 


Es decir, nunca podremos llamar a una variable con la palabra 
INPUT o la palabra PRINT o la palabra FOR, etc., pues, como 
dijimos anteriormente, estas palabras son PALABRAS BASIC y 
tienen un significado especial para operaciones o instrucciones a 
realizar para el programa INTERPRETE; con lo cual, si cayéramos 
en este error, produciríamos un trastorno o confusión en la interpre- 
tación de dicha instrucción. Tampoco podríamos usar FORTUNA 
para identificar una variable ya que contiene a la palabra reservada 
FOR. 


Nuestra codificación tendría errores de sintaxis. 


3. REGLAS DE FORMACION DE LAS PALABRAS 
CREADAS POR EL PROGRAMADOR 


Los nombres de las palabras creadas por el programador se 
pueden formar con la combinación de los siguientes conjuntos de 


caracteres: 
LETRAS MAYUSCULAS de la A a la Z (A, B, C, ... Z) 


NUMEROS del 0 al 9 (0, 1,2, ... 9) 
CARACTERES ESPECIALES ($, % ...) 


Debiendo respetarse las siguientes reglas: 


a) El primer carácter ha de ser obligatoriamente alfabético. 


b) Desde el segundo carácter al último (o penúltimo si hubiera en 
la palabra un carácter especial), puede usarse cualquier carác- 
ter dentro del juego de letras mayúsculas o números. 

c) Si utilizamos un carácter especial, bien sea $ o %, éste ha de 
ocupar la última posición. 


d) Nunca podrá ser una palabra BASIC. 


PALABRAS CORRECTAS PALABRAS INCORRECTAS 
AS SA 
NUMERO DATOS $$ 
NUMO% GNUM 
NI INUM 
N1% 236 
ALFAS N1%8$ 


NI10 | N% 


La longitud mínima de una palabra creada por el programador 
en número de caracteres es de | carácter, pudiendo llegar a ser la 
longitud máxima de hasta 100 caracteres. 


Es muy importante tener en cuenta que sólo los dos primeros 
caracteres y el carácter especial, si lo hubiera, van a ser tenidos en 
cuenta, por lo que las variables DATO | y DATO 2 serían la misma 
variable considerada internamente con el nombre DA, en cambio 
serían nombres distintos. 


DATO! y DATO3S son variables distintas ya que mientras la 
primera figuraría internamente con el nombre DA la segunda figura- 
ría como DAS. 


4. CLASIFICACIÓN DE LAS CONSTANTES 


Representaremos con el siguiente esquema la clasificación de las 
constantes: 


Enteras 
NUMERICAS Punto fijo o reales 
CONSTANTES Punto flotante o de notación científica 


ALFANUMERICAS O STRING 


Las constantes de tipo NUMERICO están formadas por dígitos 
y con ellas podremos realizar operaciones aritméticas, asignaciones o 
movimientos numéricos y comparaciones de tipo numérico. 


Las constantes alfanuméricas pueden contener cualquier tipo de 


caracteres, bien sean números, letras, caracteres especiales o cualquier 


combinación entre éstas. Con ellas podremos realizar operaciones de 
tipo alfanumérico y comparaciones de tipo lógico. 


5. CONSTANTES NUMERICAS ENTERAS 


Las constantes numéricas enteras están formadas solamente por 
dígitos numéricos y, opcionalmente, también pueden llevar signo 
(—) si el signo es negativo y (+) si el signo es positivo. Si no llevan 
signo, esta constante será considerada como positiva. 


CONSTANTES ENTERAS 


6. CONSTANTES NUMERICAS DE PUNTO FIJO 


Las constantes numéricas de punto fijo, también llamadas cons- 
tantes reales, están formadas por dígitos numéricos con o sin signo. 
Si no llevan signo serán consideradas como positivas. Constan de 
una parte entera y una decimal separadas por el carácter punto (.) que 
indica el final de la parte entera y el comienzo de parte decimal. 


Una constante real puede carecer de parte entera, pero nunca de 
parte decimal. 


CONSTANTES EN PUNTO FIJO 

—17.5 

12.65 

+3.14159 

1000.00 
— 12345678 .9 
0.5 

.65 

—.$0 


7. CONSTANTES NUMERICAS EN NOTACION 
CIENTIFICA 


Cuando tengamos números muy grandes o muy pequeños los 
expresamos en notación científica. 


El formato o forma de escribir un número en notación científica es 
el siguiente: 


Número real E [ + ] ee 


en donde número puede ser una constante entera o una constante de 
punto fijo o real. 


La letra E, que es la abreviatura de exponente, indica el final del 
número y comienzo de un exponente en base diez. 


ee indica el exponente que puede constar de uno o dos dígitos. 
Puede llevar o no signo y, como siempre, si no lo lleva lo considera- 
mos positivo. 


CONSTANTES EN NOTACION CIENTIFICA 
1 E+09 
ITEY 
2E-— 23 
3E+24 
—2.56 E — 10 


El valor de esas constantes será siempre el número multiplicado 
por diez elevado al exponente. Por ejemplo: 


—2 E+2 Su valor es —2.102=—-200 
—2.56 E+10 Su valor es —2.56.10!%=25600000000 
| E—3 Su valor es 1.100.001 
—| E—3 Su valor es (—1).103=-—0.001 
1.5 E—10 Su valor es 1.5.101%=0.00000000015 


8. CONSTANTES ALFANUMERICAS O STRINGS 


Una cadena es cualquier caracter o secuencia de caracteres ence- 
rrados entre comilllas. 


Veamos un programa que nos calcula la longitud de la circunfe- 
rencia para un radio dado. 


10 REM PROGRAMA QUE ME DA LA LONGITUD DE LA 


CIRCUNFERENCIA 
20 PRINT "CUAL ES EL RADIO "; 
30 INPUT R 
40 PRINT "LA LONGITUD ES "¡2 * 3.14159 X R 
SO END 


En este programa “CUAL ES EL RADIO” y “LA LONGITUD 
ES =” son constantes alfanuméricas o constantes string. 


La menor longitud de una constante alfanumérica es de 0 caracte- 
res; esta constante sería (*“ ”), es decir, sin ningún carácter entre las 
comillas. Esta es una constante bastante importante dentro de la 
programación y es llamada constante nula. 


La longitud máxima es de hasta 255 caracteres dentro de las 
comillas. 


Dentro de las comillas podremos utilizar cualquier tipo de carac- 
teres que tenemos en el teclado de nuestro ordenador e, incluso, 
podremos poner dentro palabras BASIC, ya que éstas pierden su 
auténtico sentido y son consideradas como una serie más de carac- 
teres. 

Por ejemplo, sería correcto escribir: 


PRINT “INPUT NO ES INSTRUCCION DE SALIDA” 
PRINT “INPUT ES UNA INSTRUCCION DE ENTRADA” 


9. CLASIFICACION DE LAS VARIABLES 


Veamos el siguiente esquema de clasificación de las variables: 


ENTERAS 
NUMERICAS 
VARIABLES REALES 
ALFANUMERICAS 


Las variables numéricas contendrán siempre valores o informa- 
ciones de tipo numérico y podremos realizar con ellas operaciones 
aritméticas, operaciones de movimiento o asignación numérica, 
comparaciones y operaciones de entrada-salida. 


El BASIC inicializa estas variables con el valor 0 por el solo hecho 
de estar definida dentro de un programa. 


10 PRINT A 
20 END 


Veremos, según este ejemplo, que nos saldrá por pantalla el 
valor 0. 


Las variables de tipo alfanumérico pueden contener cualquier 
tipo de caracteres pero, aunque todos los caracteres fuesen numéricos, 
nunca podremos realizar con ellos operaciones de tipo numérico. 


El BASIC inicializa estas variables por el hecho de estar definidas 
con la CONSTANTE NULA (*“ >”). Ejemplo: 


10 PRINT "SALTO DE LINEA " 
20 PRINT A$ 


30 PRINT "CON PRINT A$ HEMOS DEJADO UNA LINEA EN BLANCO" 
40 END 


RUN 
SALTO DE LINEA 


CON PRINT A$ HEMOS DEJADO UNA LINEA EN BLANCO 


10. VARIABLES NUMERICAS ENTERAS 


Se identifican porque llevan el carácter especial % como último 
carácter en el nombre de la variable. 


CORRECTAS INCORRECTAS 
A% AS% 
B% 31% 
Al% 3D% 
x4% RAI 


Las variables numéricas enteras contendrán siempre valores 
numéricos entre el límite superior de 32767 (como mayor valor 
positivo) y un límite inferior de —32768 (como menor valor nega- 
tivo). 


Veamos las siguientes asignaciones. 


10 LET A1% = 1000 
20 LET A2% = 2 Xx 3 
30 LET B1% = - 12000 


que serán correctas, puesto que los valores asignados están dentro de 
los límites mencionados. 


Las variables numéricas enteras siempre ocupan 2 bytes de 
memoria central y es por esto por lo que no se pueden almacenar 
valores mayores a 32767 o menores a —32768. 


Si tratamos de asignar a una variable numérica entera un valor 
fuera de estos límites se producirá un error de overflow o fuera de 
límites. Veamos: 


10 LET ENTERAZ% = 40000 
20 PRINT ENTERAZ 
30 END 


RUN 
?ILLEGAL QUANTITY ERROR IN 10 


11. VARIABLES NUMERICAS REALES 


Las variables numéricas reales se identifican porque no llevan 
carácter especial en el nombre de la variable. 


CORRECTAS INCORRECTAS 
A 0 
B 7B 
Al SA 
AA IA 
Z5 AS 


Las variables numéricas pueden contener valores fuera de los 
límites establecidos para las variables enteras. Es decir, sería correcta 


la asignación: 


Al = 40000 


También podemos asignarles valores contenidos en el rango de las 
variables enteras. 


Veamos las siguientes asignaciones correctas. 


10 LET A = 2.7614 

20 LET B = 65000 

30 LET C = 1,7 £ 1,3E - 2 

40 LETD=3/ 1000 YX 12.3 - 6 


Las variables numéricas reales ocupan 4 bytes de memoria central 

y, debido a esto y a la forma de almacenamiento del valor numérico, 
se pueden almacenar valores tan grandes como 1038 y tan pequeños 
como —10%, Cualquier valor numérico asignado fuera de estos 
límites también producirá el error de OVERFLOW. 

10 LET REAL = 10.5E + 39 

20 PRINT REAL 

30 END 


RUN 
?OVERFLOW ERROR IN 10 


12. VARIABLES ALFANUMERICAS 


Se identifican por llevar el carácter especial $ como último carác- 
ter en el nombre de la variable. 


CORRECTAS INCORRECTAS 


AS 15 
MNS$ M!S 
F6$ 775 


Pueden contener cualquier tipo de carácter, ya sean letras, núme- 
ros, caracteres especiales y caracteres de control (todos ellos dentro 
del juego de caracteres del código ASCII). 


Es posible que se dé el caso de que contengan solamente dígitos 
numéricos, pero nunca podremos realizar operaciones de tipo aritmé- 
tico con ellas. 


Serán correctas las siguientes asignaciones: 


10 LET AS = "" 

20 LET B$ = "LUIS MANUEL VALDES" 
30 LET C$ = "JUAN JOSE GARDE" 
40 LET DS = B$ + "Y" + C$ 

SO LET ES = "12345" 

60 LET F$ = "12345.5" 


En cambio, no serían asignaciones correctas: 


10 LET AS = 1 
20 LET B$ = 1.52 £ 2 
30 LET C$ = "JUAN JOSE GARDE 


Ocupan tantos bytes de memoria como número de caracteres 
contengan, siendo la longitud mínima de O caracteres cuando la 
variable alfanumérica contenga la CONSTANTE NULA: 


As=“" 


y siendo la máxima longitud de 255 bytes. 


13, EXPRESIONES ARITMETICAS 


Definiremos una expresión aritmética como el conjunto de cons- 
tantes y/o variables numéricas unidas por los operadores aritméticos: 
suma (+), resta (—), multiplicación (*), división (/) y exponenciación 
(5 

La expresión aritmética más elemental es la que consta de una 
sola constante o una sola variable numérica. 


Para definir expresiones aritméticas debemos tener en cuenta las 
siguientesa reglas de sintaxis: 
— Nunca pueden ir juntos dos operadores aritméticos. 


— En una expresión aritmética nunca podrán aparecer constan- 
tes o variables de tipo alfanumérico. 


— Los operadores aritméticos sirven de unión entre los operan- 
dos aritméticos (constantes y variables). 


EXPRESIONES CORRECTAS EXPRESIONES INCORRECTAS 
A1*3.5*(C—D) AS$ + 2 
(A—B)”.5 BrtZ3/3 
—B*2.5/3+2 —B*+6 4 
C%*(—3)/(A+B) A%+“1” 


NOTA: Solamente los operadores — ó + cuando actúan como signo 
de una variable o una constante ((—A)será lo mismo que A multipli- 
cado por —1) pueden no aparecer entre dos operadores aritméticos. 


14. PRIORIDADES DE EJECUCION 
EN LAS EXPRESIONES ARITMETICAS 


Recordemos que las operaciones aritméticas especificadas dentro 
de una expresión se realizaban mediante un estricto orden de priori- 
dades: 

— Primero se ejecutan las exponenciales (4). 

— Después las multiplicaciones y divisiones (*, /). 

— Y por último las sumas y restas (+, —). 


Recordemos también que los paréntesis servían para alterar el 
orden de ejecución de las operaciones en una expresión aritmética. 


Volveremos a repetir este orden de ejecución, introduciendo nue- 


vos elementos, y siguiendo un orden establecido de mayor a menor 
prioridad. 


— Paréntesis más internos 
— Paréntesis más externos 
— El carácter signo (+ ó —) 


— La Exponencial (1) 

— Multiplicación y División (*, /) 

— Sumas y restas (+, —) 

Tendremos en cuenta que siempre, en caso de igualdad de priori- 
dades, las operaciones se ejecutan de izquierda a derecha. 


FORMULA NOTACION FORMULA 
MATEMATICA EN BASIC 
aña (á +72 
2 
4r?2 A 
2la+b—c). 2 (a+ B—0)* (-d)/3 
3 
+ b)m 
EA (a+b)94m/(a+d)3 
(a+dy 
S5x3+7x2?—x>+3 SEXAFTETIMXP 2x4 3 
m —mn 
j (a — b) > (a — b) * ((m — n) / 2) 


15. PRECISION EN LAS EXPRESIONES 
ARITMETICAS 


En una expresión aritmétida puede ser que todos sus elementos, 
bien sean constantes o variables, sean enteros y en consecuencia el 
resultado será entero. Si nos encontramos dentro de una instrucción 
de asignación o movimiento en la que el campo o variable receptor es 
entero tendremos que procurar que el resultado de la expresión no 
quede fuera de los límites de las variables enteras. 


A% = 2*B%*2—C% 


Si la variable receptora es real, este problema se aminora ya que 
entonces los límites pasan a tener valores más altos. En variables 
reales podremos almacenar valores entre —1038, como menor, y 1038 
como mayor. 


Si en una expresión hay valores reales y enteros, los valores 
enteros se convierten temporalmente en valores reales. Al evaluar una 
expresión de esta naturaleza, ésta puede ser bien un valor entero o 
bien un valor real, dependiendo de si movemos el resultado o valor a 
una variable entera o a una variable real. Los valores reales se 
convierten a enteros descartando la parte fraccionaria y utilizando el 
siguiente número inferior cuando se asignan a una variable entera. 


Ejemplos: 
10 LET A% = 2 + 1.1 
20 LET BZ =5+1.9 
30 LETCY%=2%u1.4 
40 LET D% = AZ +5 
50 PRINT AY; " "BY" ei E " "sD%; "” ou 
60 END 
RUN 
3628 
10 LETA%= - 1.1 
20 LETB%= - 1.9 
30 PRINT AZ%;" "¡BZ%;" "¡3 Kk BZ 
40 END 
RUN 


Los números reales pueden tener hasta nueve dígitos de precisión. 


El COSPA AULA-1] redondea cualquier dígito que exceda al 


Veamos algunos ejemplos y observemos que los números grandes 
se visualizan con notación científica: 


PRINT 1234567864 
1.23456786E+0809 

PRINT —123456789123456789 
—1.23456789E+17 

PRINT —150000475.75 

— 150000476 

PRINT 90000000.7558 
90000000.8 

PRINT .1234567891 
.123456789 

PRINT .0000000009500000075 
9.50000008 E-10 


Pl) 


P2) 


P3) 


P4) 


PS) 


1?) ES 


REPASO CAPITULO 62 


Indicar cuáles, de las siguientes variables, son incorrectas y de 
qué tipo son las correctas. 


ML B5$ BASE 32A—  N-B— radio NOM$ AS AND LL 


Señalar cuáles, de las siguientes constantes numéricas, son 
incorrectas. 


2500 34 1.328,25 Lo El2 1.5E 40 o) 


Escribir en notación exponencial o científica las siguientes cons- 
tantes numéricas. 


28500 0.083 53X 1015 —58.2*106 6.S*10"9 
Señalar qué expresiones son incorrectas. 
6—23+5) AN2+6.B A*4 — (B*-C) 
HOLA/2+c (A.VW——C*2)*5 6*I+A 


Evaluar las siguientes expresiones aritméticas para A=1, B=4, 
C=3, D-2. 


A+B*/(C—3*D) 
(A/B*2)*3—1*A/3 
A—B+C*2/ D—2*%4 

((A+B*0.5y"C)*2 


P6) Escribir las siguientes expresiones aritméticas en lenguaje 
BASIC. 


a) l 


b) V B?-4.A.C 


m+A 


)  ((a—b). (c+) 


ON /AB_244€y 


3 3 


No pasar la página hasta haber realizado los ejercicios planteados. 


RI) 


R2) 


R3) 


RA) 


SOLUCIONES CAPITULO 62 


ML es correcta TIPO NUMERICA REAL 

BS es correcta TIPO VARIABLE ALFANUMERICA 
BASE es correcta TIPO NUMERICA REAL 

32A es incorrecta por no empezar con una letra 

N—B es incorrecta por llevar guión 

radio es incorreta, no se pueden usar letras minúsculas 
NOMS es correcta TIPO VARIABLE ALFANUMERICA 
AS es correcta TIPO NUMERICA REAL 

AND es incorrecta por ser palabra BASIC 

LL es correcta TIPO NUMERICA REAL 


Es incorrecta 1.328,25 ya que la parte decimal se indica con el 
carácter punto y sólo puede existir uno. 


Es incorrecta 1.5 E 40 por exceder el límite permitido para las 
constantes en NOTACION CIENTIFICA de 10 E 38. 


28500 sería en notación científica .285E5 

0.083 sería en notación científica .83 E—-1 

53 X 1015 sería en notación científica .53 E + 17 
—58.2 X 106 sería en notación científica —.582 E+8 
6.5 X 107 sería en notación científica .65 E—-8 


6—2(3+5) es incorrecta por no !llevar operador entre el 2 y el 
paréntesis. 
A*4-— (B*-—-C) es incorrecta por ir dos operadores seguidos, 


los operadores * y —. 
(A.V—CA2)*5 es incorrecta ya que A.V no es un nombre de 
variable correcto o el punto (.) no es un operador numérico. 


R5) A=I, B=4, C=3, D=2 


R6) 


A+B*C/(D-32D)=1+12=1— 12=—5 
1 2 2 _9 a 7 7 
7 
14+12/—7 
(A/B22I824/3=3_2_92>32__2 
1_ 16 216 3 48 48 
1/16 2/3 
3/16 


A—B+C*2/D—214 = 1—4+3—16=-—16 
1.4 6 2 16 
6/2 


((AF+FBA0.5)*C)M2 = 81 
l Pa 3 


3 
9 


a) 1/(N+1/(N+1/N)) 

b) (BM2—4*A*C)A.S Óó SQR (B2—4*A*C) 
c) (A—B)"C+1)4((M+3)/(N+D) 

d) ((A+B)/3—2*(4+C/3)13)(1/2) 


A 
ES POR 


AA 
Y Sp 


SNA 
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CAPITULO 72 


INSTRUCCIONES DE 
ENTRADA-SALIDA 


Il. ENTRADA POR TECLADO CON 
VISUALIZACION EN PANTALLA 


Ya sabemos que el teclado es un periférico de entrada de datos y, 
por tanto, a través de él podremos introducir éstos para un posterior 
tratamiento o proceso. La instrucción INPUT nos permite la entrada 
de datos desde el teclado visualizando aquellos caracteres que vamos 
a introducir. 


Según nos encontremos trabajando en INTEGER BASIC o en 
APPLESOFT, dos modalidades distintas para poder trabajar en 
BASIC dentro de nuestro particular COSPA AULA-!, la instrucción 
INPUT presenta dos formatos distintos. 


En INTEGER BASIC: 


Formato: 


INPUT [literal no nuimérico,] variable [,variable...] 


La instrucción INPUT hace una petición de datos desde el teclado 
quedándose a la espera de recibirlos y no continuando la ejecución del 
programa, con la instrucción siguiente, mientras no los haya recibido 
correctamente. Estos datos tecleados se asignarán a la variable o 
variables que tengamos en nuestra instrucción INPUT. 


Dentro del formato expuesto observemos que existen dentro de la 
instrucción componentes encerrados entre corchetes, lo cual nos 
indica que es opcional poner o no dicho componente. 


Los puntos suspensivos nos indican la posibilidad de repetición de 
un determinado componente. De esta manera, la forma más simple 
de escribir una instrucción INPUT sería: 


INPUT A 


es decir, al menos la palabra Basic INPUT y una sola variable que en 
este caso es la variable numérica A. 


Veamos el funcionamiento del siguiente programa: 


10 INFUT A 
20 PRINT A 


30 PRINT "PARA FINALIZAR ENTRE 0" 
40 IFA=0 THEN END 


30 GOTO 10 


RUN 

ex 

Ed 

PARA FINALIZAR ENTRE Ó 
0 

O 

PARA FINALIZAR ENTRE 0 


En INTEGER BASIC siempre que vayamos a introducir un dato 
numérico nos saldrá en pantalla antes el caracter ? y recordaremos 
que en INTEGER BASIC no podemos introducir constantes numé- 


Podemos introducir a la vez más de una variable: 


10 INPUT "DAME DOS NUMEROS ";¡A,B 
20 PRINT "SU SUMA ES =";¡A + B 


RUN 

DAME DOS NUMEROS 3 <RETURN> 
? 4 <RETURN> 

SU SUMA ES =7 


Estos datos los podemos dar separándolos por comas y pulsando 
la tecla RETURN, con lo que variable A toma el valor 3 y la variable 


Si intentamos introducirlos por separado ocurriría: 


10 INPUT "DAME DOS NUMEROS ";A,B 
20 PRINT "SU SUMA ES = "¡A + B 


RUN 
DAME DOS NUMEROS 3,4 <¿RETURN> 
SU SUMA ES = 7 


Es decir, si una sentencia INPUT exige más de un valor en la 
entrada, podemos introducir cada uno en una línea separada, termi- 
nando cada valor con la tecla RETURN. 


En cuanto al literal no numérico, hemos visto que, si está presente 
en la codificación de la instrucción INPUT, será visualizado antes de 
que se introduzca la primera variable, dando información al operador 
sobre qué tipo de datos tiene que introducir. 


Si los datos a introducir son alfanuméricos: 
INPUT AS 


entonces no se visualiza el carácter ? 


Debe de haber siempre una correspondencia tanto en el tipo de las 
variables, como en el número de variables entre las que haya a 
continuación de una instrucción INPUT y la lista de datos separados 
por comas que introduce el operador. 


Cuando no existe correspondencia en tipo (por ejemplo a una 


variable numérica le introducimos letras) aparece un mensaje de error 
SYNTAX ERR RETYPE LINE. Debiendo de volver a introducir de 
nuevo los valores. 


10 INPUT "NUMERO"; NUM 
20 PRINT NUM 


RUN 


NUMERO DIEZ <RETURN> 


10 SYNTAX ERROR RETYPE LINE 
NUMERO 10 <¿RETURN> 
10 


En APPLESOFT 


Formato: 


INPUT [literal no numérico;] variable [,variable...] 


La única variación, en cuanto al formato, es la separación entre el 
literal no numérico de la primera variable por un ; en lugar de una 
coma. 


En cuanto al funcionamiento, es similar con dos variaciones: 


a) El que no aparezca el carácter ? depende de la no existencia del 
literal no numérico; siempre que aparezca éste nunca aparece el 
carácter ? . En INTEGER BASIC, si la variable era numérica, 
aparecía el carácter ? , mientras que no aparecía si la variable era 
alfanumérica. 


b) La entrada a variables alfanuméricas es distinta y estas diferencias 
las expondremos a continuación. 


Si no existe correspondencia en tipo, el APPLESOFT visualiza 
REENTER y se vuelve a ejecutar de nuevo la instrucción INPUT 
desde el principio. 


2. ENTRADA DE UN STRING DE CARACTERES 


En INTEGER BASIC: 


10 
20 
30 
40 
JO 
60 


DIM A$(19) 
INPUT AS 


PRINT A$ 
PRINT "PARA FINALIZAR EL PROGRAMA PULSE RETURN" 


IF AS = "" THEN END 
GOTO 20 


cuando vayamos a entrar variables alfanuméricas tendremos que 
dimensionar dicha variable con la instrucción DIM y entre paréntesis 
el número máximo de caracteres que puede tener la variable, en este 
caso AS. 


Si introducimos una cadena de caracteres que tenga una longitud 
superior a 19, obtendremos un mensaje de error. 


*** STR OVGL ERR 


y el programa se interrumpirá. 
La entrada, para una variable alfanumérica, de la constante alfa- 


numérica vacía “ ”, la conseguiremos pulsando solamente la tecla 
RETURN. 


El INTEGER BASIC nos obliga a introducir cada valor de una 
cadena o string de caracteres en una línea distinta. 


Si una sentencia INPUT especifica una lista de variables y alguna 
de ellas es una variable alfanumérica, los caracteres asociados a la 
variable alfanumérica tendrán que introducirse en una línea distinta. 
Esto es debido a que el INTEGER BASIC permite introducir comas 
como parte del valor de una cadena. 


Supongamos el programa: 


10 DIM A$(10): DIM B$(10) 

20 INPUT A$,A,B$,B 

30 IF AS$= "" THEN END 

40 PRINT A$,A,B$,B 

50 PRINT "PARA FINALIZAR PULSE RETURN" 
60 GOTO 20 


Si introdujéramos los valores para A$, A, B$, B, en la misma línea 
separados por comas, estos cuatro valores irían asignados a AS. 


En APPLESOPT: 


No requiere que se dimensionen las variables alfanuméricas. 


Si el primer carácter de no espaciado de una entrada de cadena es 
un signo de interrogación, todos los caracteres (incluyendo comas y 
puntos y comas) hasta el próximo signo de interrogación o RETURN 
se asignan a la variable alfanumérica. 

Si la entrada no comienza con un signo de interrogación, todos los 
caracteres (incluyendo los signos de interrogación) hasta la siguiente 
coma, punto y coma o RETURN se asignan a la variable 
alfanumérica. 

10 REM ENTRADA DE DOS VARIABLES ALFANUMERICAS. 

20 INPUT "INTRODUCE APELLIDOS Y NOMBRE "; AP$, NOM$ 


) 30 PRINT APS, NOMS 
40 END 


INTRODUCE AFELLIDOS Y NOMBRE VALDES GONZALEZ,LUIS 


VALDES GONZALEZ,LUIS 


66 


Por noempezar por ? todoslos caracteres hasta encontrar la *, 
serán asignados a APS. 
APS = “VALDEZ GONZALEZ” 


y LUIS será asignado a NOMS por encontrarse después de la “S” el 
carácter RETURN . 


NOMS = “LUIS” 


Veamos otro ejemplo: 


10 INPUT "INTRODUCE NOMBRE Y EDAD ";NOM$,ED$ 
20 PRINT NOM$,EDS$ 


30 END 

RUN 

INTRODUCE NOMBRE Y EDAD JUAN JOSE, 31 
JUAN JOSE 31 


En este ejemplo NOMS ha tomado el valor de JUAN JOSE: 
NOMS = “JUAN JOSE” 
y ED ha tomado el valor de 31: 
ED = 31. 


Veamos cómo podríamos introducir en una variable alfanumé- 
rica un contenido de caracteres alfanuméricos entre los cuales puedan 
existir comas, puntos y comas, etc., es decir cualquier tipo de carac- 


EOrOS: 


En INTEGER BASIC: 


10 DIM A$(120) 

20 INPUT "STRING DE CARACTERES ";¡A$ 
3O PRINT AS$ 

40 END 


STRING DE CARACTERES”? 
ESTO, ES UN STRING DE CARACTERES INCLUSO CON 


EL CARACTER (,) <RETURN> 
ESTO, ES UN STRING DE CARACTERES INCLUSO CON 


EL CARACTER (,) 


La variable A$ ha tomado todos los caracteres introducidos 
mediante instrucción INPUT. Notemos cómo. en este caso, las comas 
no tienen el significado de separador de datos. 


En APPLESOFT: 


10 INPUT "STRING DE CARACTERES ";¡A$ 
20 PRINT A$ 
30 END 


STRING DE CARACTERES ESTO, ES UNA STRING DE CARACTERES 
INCLUSO CON EL CARACTER  (,) <RETURN> 


En este caso, y por trabajar en APPLESOFT, hemos tenido que 


pulsar el carácter ? para que el resto de caracteres hasta el carácter 
<RETURN> sean asignados a la variable AS. 


3. ENTRADA POR TECLADO SIN 
VISUALIZACION EN PANTALLA 


GET 
Formato: GET variable 


La sentencia GET introduce un solo carácter desde el teclado, sin 
que quede visualizado en pantalla y sin necesidad de pulsar la tecla 
RETURN. 


El carácter introducido puede ser numérico o cualquier carácter 
(número, letra, o carácter especial), dependiendo del tipo de variable 
que vaya a continuación de la palabra Basic GET. 


El carácter introducido se asignará a la variable dada a continua- 
ción de GET. 


10 GET A$ 
20 IF A$ = "E" THEN END 
30 GOTO 10 


Con la última instrucción, GOTO 10, continuaremos haciéndolo 
mientras el carácter introducido no sea la letra “E”. Cuando así 
ocurra, el programa finaliza su ejecución. 


Podemos hacer que la sentencia GET espere un carácter determi- 
nado, no continuando la secuencia del programa mientras no reciba- 
mos tal carácter. 


10 GET AS$ 
20 IFAS< > "X" THEN GOTO 10 


Si la variable es numérica 
GET A 


e introducimos un carácter, que no sea un dígito numérico, el pro- 
grama termina y aparece el mensaje de: 


? SYNTAX ERROR 


Se utiliza la sentencia GET para generar un diálogo con el opera- 
dor. Tiene la ventaja, respecto a la instrucción INPUT, de que los 
caracteres introducidos pueden ser seleccionados evitando posibles 
errores del operador y no tener la necesidad de pulsar la tecla 
RETURN. En consecuencia, la entrada de datos será más rápida. 


Veamos un último ejemplo que nos sirva para detener el pro- 
grama hasta que se pulse cualquier tecla del teclado. 


100 PRINT "PULSA UNA TECLA PARA CONTINUAR" 
110 GET A$: IF A$ = "" THEN 110 


4. SALIDA DE DATOS POR PANTALLA 


PRINT 
Formato: 
PRINT [expresión] | :. ... [expresión] | ...] 


Ya hemos visto el sentido que tienen los corchetes dentro del 
formato de una expresión. También sabemos el sentido de los puntos 
suspensivos. En este formato aparece un carácter más que son las 


6,9 


llaves. En nuestro formato aparece el “; 


e »” 


y la “.” entre llaves; esto nos 
66,9 .“ 


indica que podemos elegir entre la opción “;” o elegir la “.”. Así sería 
sintácticamente correcto el escribir: 


PRINT AS;B,C;¡D 
PRINT AS,BS,CS$ 
PRINT A¡B;C; 
PRINT ,A,B,C 
PRINT AS;BS 
PRINT AB, 
PRINT 


La instrucción PRINT da salida en pantalla a los caracteres que 
contengan la lista de expresiones a continuación de la sentencia 
PRINT. 


El que dos expresiones estén separadas por “;” hace que ambas 
expresiones salgan juntos en pantalla. 


El “:” mantiene el cursor sin dar saltos de tabulación; es decir. no 
ejerce ninguna función especial de salto. 


10 LETA = 17 
20 LET B$ = " " 
30 LET C= 32 
40 PRINT A;¡B$;C 


“6 0” 
. 


El carácter hace que se avance a la siguiente zona de 


tabulación. 


En INTEGER BASIC los topes de tabulación de cualquier línea 
están en las columnas 1,9, 17, etc., mientras que en APPLESSOFT 
soñ. 1. 17,33, 


Para pasar a la siguiente zona de tabulación se hará siempre que 


aparezca un carácter blanco en la posición anterior (columnas $, 16, 
etc en INTEGER BASIC, y 16, 32, etc, en APPLESOFT); si no 
ocurre esto se pasará a la siguiente zona de tabulación. 


10 LET A$ = "ESTO":B$ = " TABULA"” 
20 PRINT A$,BS$ 

ESTO TABULA 

10 LETA=7:B= -1 

20 FPRINT A,B 

3O END 

7 1 


6,9 


Toda instrucción PRINT que no acabe con*,”ocon*;” hace que 
el siguiente carácter o caracteres a imprimir se hagan en la siguiente 


e. » 


línea. Esto es así porque por no acabar con“,” no se pasa a la siguiente 


zona de tabulación y por no acabar en “;” no se continúa en la 
posición en curso del cursor. 


Por tanto la instrucción: 
PRINT 
sin ninguna expresión, hace que se avance a la siguiente línea en 
pantalla. 
La palabra Basic PRINT puede ser sustituida porel carácter ” 


66 » 66, 9? 


Con los caracteres “,” y “;” podemos seleccionar, en cierto modo, 


la columna en donde empezar a escribir dentro de una línea. De todas 


formas, esta tema se puede simplificar utilizando las funciones TAB y 
SPC. 


5. CONTROL DEL CURSOR EN PANTALLA 


Podemos apoderarnos del control del cursor en pantalla mediante 
la utilización de las siguientes sentencias: 


TAB y HTAB 
Formato: 
TAB expresión numérica 
HTAB expresión numérica 


TAB es una sentencia del INTEGER BASIC. 
HTAB es una sentencia del APPLESOFT. 


En ambas la expresión numérica deberá estar comprendida entre 
los valores 1 a 40, ya que en una línea en pantalla tenemos 40 
posiciones. 


Ambas funciones posicionan el cursor dentro de la línea según el 
valor de la expresión numérica sin borrar ningún carácter visualiza- 
dor. 


TAB 3 
posiciona el cursor en la columna 3 dentro de la línea en curso. 
HTAB 3*5 


posiciona el cursor en la columna 15 dentro de la línea en curso. 


Es importante no confundir la sentencia TAB, que nos sirve para 
controlar el cursor dentro de una línea en pantalla, con la función 
TAB, que solamente se puede utilizar con la instrucción PRINT y que 
nos servirá para tabular. 


Notar que sus formatos también son diferentes: 


TAB (expresión numérica) función para tabular. 
TAB (expresión numérica) sentencia control del cursor; 


Para el control vertical del cursor nuestro BASIC nos propor- 
ciona la sentencia: 


VTAB 
Formato: 
VTAB expresión numérica 


La expresión numérica ha de estar contenida entre los valores de 
Il a 24. La pantalla de nuestro ordenador tiene 24 líneas. 


VTAB posiciona el cursor en la línea indicada por el valor de la 
expresión, sin borrar ningún carácter visualizado. El cursor permane- 
cerá en la correspondiente columna en curso. 


VTAB 5 
nos posiciona el cursor en la fila $. 
VTAB 2*5 
nos posiciona el cursor en la fila 10. 


Si quisiéramos escribir el mensaje NOMBRE en la fila 3 y la 
columna 5 y el mensaje DOMICILIO en la fila y columna $5 podría- 
mos escribir las siguientes sentencias para APPLESOFT: 


10 HTAB S: VTAB 3 
20 PRINT "NOMBRE” 
30 HTAB 5: VTAB 5 
40 PRINT "DOMICILIO" 


Estas sentencias que nos sirven para controlar el cursor son muy 
importantes para la entrada de datos desde el teclado utilizando 
pantalla formateada. 


6. SALIDA DE DATOS POR IMPRESORA 


Hasta ahora toda salida de datos la hemos hecho en pantalla, pero 
podría interesarnos guardar los resultados de un programa, por lo 
que podremos utilizar a la impresora como dispositivo de salida y 
obtener los resultados impresos en papel. 


Para realizar tal tarea antes de que se efectúe la instrucción 
PRINT, que normalmente ofrece los datos en pantalla, debemos 
seleccionar a la impresora como el periférico de salida de nuestros 
datos. Para ello tenemos que diferenciar si trabajamos con un 
COSPA AULA-1 con DOS, o si trabajamos con un COSPA 
AULA-1] sin DOS (DOS son las iniciales de sistema operativo en 


disco, “Disk Operating System”). 


Con DOS: 


10 
20 
30 
40 


JO 
60 
70 
90 
90 


REM — SALIDA DE DOS LINEAS DE TEXTO POR IMPRESORA 
REM — CREACION DEL CARACTER DE CTRL-D 

LET D$ = CHR$ (4) 

REM SELECCION DE LA PUERTA S CONECTADA A LA 
IMPRESORA 

PRINT DS; "PRES" 

PRINT "PRIMERA LINEA ESCRITA EN LA IMPRESORA" 
PRINT "SEGUNDA LINEA ESCRITA EN LA IMPRESORA" 
REM — DESCONEXION DE LA IMPRESORA 

PRINT DS; "FRHEO" 


100 END . 


La sentencia de la línea 30 crea un carácter de control que conver- 
tirá el comando del sistema operativo PRH en una sentencia BASIC. 


La sentencia de la línea 50 desvía la salida desde la pantalla a la 
impresora conectada a la puerta $. 


Las dos sentencias PRINT siguientes mandan los datos a la 
impresora. 


La sentencia en la línea 90 devuelve los futuros resultados a 
pantalla; es decir, desconecta la impresora. 


Sin DOS: 


10 REM SALIDA DE DOS LINEAS POR IMPRESORA 
¿20 REM SELECCION DE LA FUERTA 3 CONECTADA A LA 
IMPRESORA 


SO PRES 
40 FRINT "PRIMERA LINEA ESCRITA POR IMPRESORA" 
30 FRINT "SEGUNDA LINEA ESCRITA FOR IMPRESORA" 


60 REM DESCONEXION DE LA IMPRESORA 


70 FR O 


80 END 


Vemos que la única diferencia escrita es que sin DOS no necesi- 
tamos generarnos el carácter de control (* ”), ni incluir la sentencia 
PRF dentro de una PRINT. 


7. LISTADO DE UN PROGRAMA 
POR IMPRESORA 


Si tecleamos el comando LIST, como hemos visto en el capítulo $5, 
se visualizará en pantalla cualquier programa que estuviera en la 
memoria del COSPA AULA-] 

Para imprimir este listado debemos de seguir los siguientes pasos: 


a) Con el cursor sobre una línea vacía de la pantalla selecciona- 
mos la impresora mediante el comando PR+S5. 


b) Tecleamos LIST <RETURN>. 


c) Cuando ya haya impreso todo el programa, devolveremos la 
salida a la pantalla mediante el comando PR+0. 


Pl) 


P2) 


P3) 


REPASO CAPITULO 72 


Pretendemos introducir los valores NOMBRE, DIRECCION 
y EDAD desde el teclado, y lo hacemos con las siguientes 
sentencias: 

10 PRINT "NOMBRE 2" 

20 INPUT NOM$ 

30 PRINT "DIRECCION ?" 

40 INPUT DIR$ 

30 PRINT "EDAD" 

60 INPUT EDA 
¿Qué aparecería en pantalla y cómo introduciríamos los datos 
en INTEGER BASIC, suponiendo que la dirección puede 
llevar comas? 


Según el ejemplo anterior, ¿qué aparecería en pantalla y cómo 
introduciríamos los datos trabajando en APPLESOFT y con 
las mismas características sobre la información referente a la 
dirección? 


Sustituir la rutina del Pl sin utilizar la instrucción INPUT; 
es decir, solamente utilizando tres instrucciones INPUT y que el 
resultado en pantalla sea el mismo, trabajando en INTEGER 
BASIC. 


P4) Idem del P3, pero ahora trabajando en APPLESOFT. 


PS) Escribir una instrucción PRINT que produzca, teniendo en 
cuenta que trabajamos en APPLESOFT, la salida siguiente: 


P6) Introducir las instrucciones PRINT, trabajando en INTE- 
GER BASIC, que representa los números 2, 3 y 5 en los 
formatos siguientes: 


P7) Efectuar un programa que nos ofrezca una tabla de valores de 


la forma: 
10 17 e 
NUMERO SU CUADRADO SU RAIZ 
l l l 
p, 4 1.41421354 
l l l 
l l l 
9 81 3 


P8) 


P9) 


P10) 


PIT) 


P12) 


Utilizando o bien la función SPC o bien la función TAB. 


Realizar una rutina que pase el programa mientras el operador 
no teclee la letra “S”. Anteriormente el operador recibirá un 
mensaje en pantalla sobre la acción a efectuar. Cuando pulse la 
letra “S” no se visualizará en la pantalla. 


Escribir una rutina que borre la pantalla y que posicione el 
cursor en el tercer carácter de la línea 4. 


Escribir un programa que después de borrar la pantalla escriba 
“NOMBRE” en la línea 8, carácter 25. 


Efectuar el P7 obteniendo los resultados por impresora, 
teniendo en cuenta que trabajamos sin DOS. 


Hacer una rutina para introducir los datos NOMBRE, 
DIRECCION y TELEFONO. Después de introducidos nos 
los liste por impresora. Nos haga la pregunta de si queremos 
continuar. Si lo hacemos lo haremos pulsando la tecla “S”, que 
no será visualizada, y borraremos en pantalla los últimos datos 
introducidos para introducir de nuevo otros datos. Termina- 
remos el proceseo de entrada cuando pulsemos una tecla 
distinta a la “S”. Los mensajes NOMBRE, DIRECCION y 
TELEFONO permanecen siempre en pantalla en posiciones a 
elegir por el alumno. 


No pasar la página hasta haber realizado los ejercicios planteados. 


R1) 


R2) 


R3) 


R4) 


SOLUCIONES CAPITULO 72 


19 Aparece NOMBRE ? FERNANDO pulsamos RETURN 

22 Aparece DIRECCION ? MANUEL QUER, n2 1 pulsamos 
RETURN 

32 Aparece EDAD ? 28 pulsamos RETURN. 


Notar que cada PRINT acaba con ; y que la interrogación a 
continuación de EDAD se debe a que la variable EDA es 
numérica. 


19 Aparece NOMBRE?? FERNANDO pulsamos RETURN 

22 Aparece DIRECCION ?? MANUEL QUEK n2 |] 
pulsamos RETURN 

39 Aparece EDAD ? 20 pulsamos RETURN 


Notar que el signo de interrogación aparece siempre añadido ya 
que la instrucción INPUT carece de literal no numérico y que 
en la entrada de dirección tendremos que teclear ? para que lo 
escrito a continuación se asigne en su totalidad a la variable 
DIRS (entrada de un STRING de caracteres). 


10  INFUT "NOMBRE ";¡NOM$ 
20 INPUT "DIRECCION "¡DIR$ 
30 INPUT "EDAD ";¡EDA 


Por ser EDA una variable numérica, el INTEGER BASIC 
añadirá una ? al literal no numérico EDAD. 


10 INPUT "NOMBRE "NOMS 


20 INFUT "DIRECCION ";¡DIR$ 
30 INPUT "EDAD "¡EDA 


R5) 


R6) 


R7) 


R8 


R9) 


El criterio en APPLESOFT de añadir el carácter ? depende 
solamente de si no aparece literal no numérico. 


PRINT “x”;18.3, “4”=”; 0.00012 


2) PRINTZ.3;0 
29) PRINT 2,, 3,5 


39) PRINT 2;*——-”;3;2——-”;5 
409) PRINT 2;*——”;3,,5 
59) PRINT,2;*——”3;*——”,5 


6% PRINT,2,3,5 


5 HOME 


10 PRINT TAB( 10)"NUMERO" TAB( 17)"SU CUADRADO" 
TAB( 30)"SU RAIZ" | 

20 PRINT TAB( 10)"------ " TABC 17 " 
TAB( 30) "-====-- " 

30 PRINT 

40 FOR 1 = 17109 

50 FPRINT TAB( 11)1 TAB( 18)1 * 2 TAB( 30)1 “ .5 

60 NEXT 1 

70 END 


100 PRINT "PARA CONTINUAR PULSE LA TECLA (5)" 
110 GET A$ 

120 IF AS$< > "S" THEN 110 

130 REM CONTINUACION DEL PROGRAMA 


100 REM RUTINA QUE BORRA LA PANTALLA Y FOSICIONA 
105 REM EL CURSOR 
110 HOME 


130 HTAB 3 4 E 


120 VTAB 4 


R 10) 


R1!) 


R12) 


Esto en APPLESOFT; en INTEGER BASIC sustituiríamos la 
sentencia HTAB 3 por la sentencia TAB 3. 


10 REM PROGRAMA QUE BORRA LA PANTALLA ESCRIBIENDO 
20 REM NOMBRE EN LA POSICION (8,25) 

30 HOME 

40 VTAB 8: HTAB 25 

SO FRINT "NOMBRE" 


60 END 

10 PR S 

20 FPRINT SPC( 9)"NUMERO" SPC( 1)"SU CUADRADO" 
SPC( 2)"SU RAIZ" 

30 PRINT :5PC0 91 === e E > 
A Ñ 

40 FRINT 


30 FOR I = 1 TO 9 

60 PRINT TAB( 10)1 TAB( 19)1 * 2 TAB( 30)I1 7” .S 
70 NEXT I 

80 FRE O 

90 END 


10 REM BORRADO DE PANTALLA 

13 HOME 

20 REM FIJAMOS LA PANTALLA CON LOS MENSAJES 
PERMANENTES 

40 VTAB 3: HTAB 5: PRINT "NOMBRE" 

530 VTAB 8: HTAB 53: PRINT "DIRECCION" 

60 VTAB 11: HTAB S: PRINT "TELEFONO" 

63 VTAB 18 

70 PRINT "PARA CONTINUAR PULSE LA (S)" 

73 PRINT 


80 REM ACTIVAMOS LA IMPRESORA Y 
ESCRIBIMOS UNA CABECERA 
90 PRES 


100 


110 


120 
130 
140 
150 
160 
170 


180 
183 
190 
200 
210 
215 
220 
225 
230 


Ma 
239 


240 
250 
260 
270 


PRINT— TAB( 10) "NOMBRE" TAB( 20) "DIRECCION" 
TAB( 32) "TELEFONO" 

PRINT— TAB( 10) "------ “ TAB( 20) "-----—-- A 
TAB( 32) "====---- ' 

PRINT 

REM INTRODUCCION DE DATOS 

VTAB 5: HTAB 12: INPUT ""¿NOM$ 

VTAB 8: HTAB 15: INPUT "";DIR$ 

VTAB 11: HTAB 14: INPUT "";TELS 


REM  ACTIVAMOS IMPRESORA E IMPRIMIMOS Y 
DESACT IVAMOS 


PR 1 

VTAB 23 

PRINT— TAB( 10)NOM$ TAB( 20)DIR$ TAB( 36) TEL$ 
PRH O 

VTAB 18: HTAB 38: GET A$ 

REM — ANTE LA ESPERA DE PULSAR UN CARACTER 

IF A$ = "" THEN 220 

REM — UNA VEZ PULSADO UNO INVESTIGAMOS CUAL ES 
IFAS$Z > "S" THEN END 

REM — RUTINA PARA BORRAR LOS DATOS INTRODUCIDOS 
EN PANTALLA LOS LITERALES TENDRAN MAYOR 
LONGITUD QUE LOS DATOS ENTRADOS. 

VTAB 5: HTAB 12: PRINT " dl 
VTAB 8: HTAB 15: PRINT " j 
VTAB 11: HTAB 14: PRINT " y 
GOTO 130 
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CAPITULO 89 
FUNCIONES 


1. INTRODUCCION 


Conocemos por nuestros estudios de matemáticas el concepto de 
función que tiene una gran utilidad en multitud de cálculos y 
aplicaciones científicas. 


El lenguaje BASIC, que se puede aplicar a la mayoría de los 
problemas científicos, admite la posibilidad de utilizar algunas fun- 
ciones matemáticas, las cuales dan mayor flexibilidad al lenguaje, 
sobre todo en lo concerniente a la resolución de cuestiones científicas 
y técnicas. 


El número de funciones varía según las diferentes versiones del 
BASIC; nosotros haremos referencia a las funciones de nuestro orde- 
nador. 


Las funciones que se pueden usar en el lenguaje BASIC se clasifi- 
can en dos grandes grupos: 


a) Funciones definidas por el BASIC. 
b) Funciones definidas por el programador. 


2. FUNCIONES DEFINIDAS POR EL BASIC 


El BASIC, además de las operaciones aritméticas, proporciona 
diversas funciones standard que nos simplifican las operaciones más 
comunes, tales como calcular el valor absoluto de un número, encon- 
trar el logaritmo neperiano de un número, calcular el seno de un 
ángulo, etc. 

Estas funciones que nos permiten de manera rápida y fácil traba- 
jar con muchas funciones matemáticas son unas subrutinas preescri- 
tas e incluidas dentro del lenguaje BASIC. 

Veamos un ejemplo: si tuviéramos que calcular el valor absoluto 
de un número (sabemos que el valor absoluto de un número es 
considerar a dicho número sin signo) podríamos programar la 
siguiente rutina: 


10 PRINT "ENTRA UN NUMERO" 


20 INPUT N 
30 IFN<OTHNN= -N 
359 PRINT 


40 PRINT "SU VALOR ABSOLUTO ES ";¿N 
30 END 


Pues bien, el proceso de multiplicar el número por —l, si el 
número fuera negativo, ya viene internamente programador y nos 
bastaría con aplicar la función ABS (valor absoluto) reduciéndo el 
programa anterior a lo siguiente: 


10 
20 
25 
30 
40 


PRINT "ENTRA UN NUMERO" 

INPUT N 

PRINT 

PRINT "SU VALOR ABSOLUTO ES"; ABS (N) 
END 


3. FUNCIONES NUMERICAS QUE APORTA 
EL BASIC 


ABS 


Formato: ABS (expresión numérica) 


Calcula el valor absoluto de la expresión numérica. 


Recordemos que una expresión podía constar desde una sola 
constante o variable hasta varias unidas por los operadores aritméti- 


Cos. 


Notemos que esta expresión numérica va encerrada entre parén- 


tesis. 


PRINT ABS (13) 
13 
PRINT ABS (—5) 


5 
PRINT ABS (2*6/(—3)) 
2 


INT 


10 X=5.2 


20 Y=6.2 

30 PRINT ABS ((X=Y)12) 
32.76 

10 X=-—3 

20 Y=2.5 

30 PRINT ABS (X)* Y 
TS 


Formato: INT (expresión numérica) 


Nos proporciona el mayor número entero inferior o igual a la 


expresión: 


SGN 


PRINT INT (2.34) 

2 

PRINT INT (0.7) 

0 

PRINT INT (—S5.4) 

—6 

PRINT INT (ABS(—2)-0.5) 

2 

PRINT INT (—2— ABS(—0.5)) 
—3 


Formato: SGN (expresión numérica) 


Calcula el signo de la expresión numérica, devolviéndolos el 
valor 1 si la expresión es mayor que 0, —1 si la expresión es negativa y 
0 si la expresión es cero. 


PRINT SGN (23) 
1 

PRINT SGN (0) 

0 

PRINT SGN (—7) 
—1 


Ejemplo: 


10 LETA= - 10 

20 IF SGN (A) > O THEN PRINT "POSITIVO"; 
3O IF SGN (A) = O THEN PRINT "CERO"; 

40 IF SGN (A) < O THEN PRINT "NEGATIVO"; 
50 PRINT " YA QUE A ES "¡A 

60 END 


RUN 


NEGATIVO YA QUE A ES -10 


SQR 
Formato: SQR (expresión numérica) 


Calcula la raíz cuadrada de la expresión numérica. Siempre que 
la expresión numérica sea negativa nos devolvería el mensaje: 


? ILLEGAL QUANTITY ERROR 


por no poderse ejecutar la raíz cuadrada de un número negativo. 


SQR (expresión numérica) actúa más rápidamente que si dicha 
expresión numérica la eleváramos a 0.5: 


PRINT SQR (9) 
3 


PRINT SQR (2) 
1.41421354 
PRINT SQR (10) 
3.16227770 


10 INPUT "NUMERO";N 
20 IF SGN (N) > = 0 THEN PRINT "SU RAIZ CUADRADA ES 


"s SQR (N) 
30 IF SGN (N) < O THEN PRINT "NO PODEMOS HALLAR SU 


RAIZ" 
40 END 


Con esta rutina nos hemos evitado el que el ordenador intentase 


calcular la raíz cuadrada de un número negativo, por los que nunca se 
produciría el mensaje de ? ILLEGAL QUANTITY ERROR. 


SIN 

Formato: SIN (expresión numérica) 

Calcula el seno de la expresión numérica; esta expresión numérica 
deberá ser el ángulo no expresado en grados sino en radianes. 


Recordemos que el paso de un ángulo en grados a radianes será: 


: Grados 2 7 Grados. 
Radianes = —— = —_—_—_—_— 
360 180 


PRINT SIN (30*3.14159/180) 
499999642 

PRINT SIN (20*3.14159/180) 
342019886 

PRINT SIN (66*3.14159/180) 
913545072 


Veamos el siguiente programa que nos calcula el seno de un 
ángulo dándose en grados: 


10 
20 
30 
40 
SO 


COS 


INPUT 
LEFT R 
PRINT 
PRINT 
END 


"ANGULO EN GRADOS ";6 
= GX 3.14159 / 180 
"SU EQUIVALENCIA EN 
"EL SENO DE DICHO 


RADIANES ES "¡R 
ANGULO ES"; SIN (R) 


Formato: COS (expresión numérica) 


Calcula el coseno de un ángulo expresado en radianes. 


ATN 
Formato: ATN (expresión numérica) 


PRINT COS (30*3.14159/180) 
866025686 

PRINT COS (20*3.14159/180) 
939692736 

PRINT COS (66*3.14159/180) 
406737655 


Nos devuelve el ángulo en radianes cuya tangente es la expresión 
numérica dada. Si queremos obtener el resultado en grados debería- 


mos pasar los radianes a grados: 


Radianes . 180 


T 


Grados = 


PRINT ATN (1) 
0.785398245 

PRINT ATN (2.34567) 
1.16781044 

PRINT ATN (5.34567) 
1.38586652 


EXP 
Formato: EXP (expresión numérica) 


Llamada función exponencial. 


Calcula el valor de e, que es base de los logaritmos neperianos, 
elevado a la potencia que nos indique la expresión numérica. 


El valor aproximado de e es 2.71828183. 


PRINT EXP (2) 
7.38905621 

PRINT EXP (4) 
54.5981445 

PRINT EXP (10) 
22026.4668 


LOG 
Formato: LOG (expresión numérica) 

Nos calcula el logaritmo neperiano de la expresión numérica. La 
expresión ha de cumplir que sea mayor que O ya que no existen los 
logaritmos de O o números negativos, proporcionando el sistema el 
mensaje de 


? ILLEGAL QUANTITY ERROR 


si la expresión numérica es cero o negativa. 


PRINT LOG (1) 
0 

PRINT LOG (2) 
693147063 

PRINT LOG (3) 
1.09861231 


Tendremos que evitar que nos venga una expresión con valor cero 
o negativo antes de intentar calcular el logaritmo de dicha expresión, 
lo que podemos realizar investigando el valor de la expresión viendo 
si es mayor que cero. 


Si nuestro objetivo no es calcular el logaritmo neperiano, sino el 
logaritmo en base 10, recordaremos que el cambio de base se realiza 
efectuando las operaciones: 


Log, N 
1081. N = ———— 
£10 Log. 
y en general para cualquier base: 
log, N 
A EN 
log, a 


POS 
Formato: POS (expresión numérica) 


Nos proporciona la posición de la columna del cursor. La expre- 
sión es ficticia; no se utiliza y, por consiguiente, puede tener cualquier 
valor legal. 


POS nos proporciona un valor entre 0 y 39, puesto que la posición 
de los caracteres en pantalla empiezan en la posición cero como 
caracteres más a la izquierda. Una línea en pantalla puede almacenar 
40 caracteres. 


IF POS (0) > 13 THEN PRINT 


Este ejemplo hace que si el cursor se encuentra más allá de la 
columna 13 dé un salto al comienzo de la línea siguiente. 


TAB 
Formato: TAB (expresión numérica) 


La función TAB se ha de utilizar con la función PRINT para 
desplazar el cursor a la columna que nos indique la expresión numé- 
rica, siempre que el cursor esté a la izquierda del valor de la expresión 
numérica. El cursor no se desplaza si el valor de la expresión numérica 
no está a la derecha de la posición actual. TAB da lugar a la impresión 
de espacios en blanco a medida que se desplaza el cursor a la derecha, 
con lo que se borra todo lo que hubiera en la pantalla con anterio- 
ridad. 


Si la expresión numérica fuera más grande que la anchura del 
dipositivo de salida (40 para la pantalla), desplaza el cursor hacia 
abajo en una línea y reanuda la cuenta en el margen izquierdo. Si el 
valor de la expresión es 0, TAB efectúa el desplazamiento a la 
columna 256. Un valor de la expresión fuera del margen O a 255 
produce un mensaje de error ? ILLEGAL QUANTITY ERROR. 


10 PRINT "NOMBRE" TAB( 20)" DIRECCION" 


20 PRINT 
3O LET A$ = "FERNANDO" 
40 LET B$ = "LAGASCA, 41" 


SÓ PRINT A$ TAB( 20)B$ 


NOMBRE DIRECCION 


SPC 
Formato: SPC (expresión numérica) 
La función SPC, al igual que la función TAB, se ha de utilizar con 
la instrucción PRINT. 


Avanza el cursor un número de posiciones igual a la expresión 
numérica entre paréntesis generando el mismo número de posiciones 
en blanco. 

La diferencia que existe respecto a la función TAB es que, mien- 
tras que ésta posiciona el cursor en una determinada columna dentro 
de una línea generando espacios en blanco en cada una de las posicio- 
nes saltando, la función SPC avanza un determinado número de 
posiciones a partir de la posición actual del cursor. 


El ejemplo anterior lo podíamos haber realizado con la función 
SPC, el resultado sería: 


10 PRINT "NOMBRE" SPC( 13)" DIRECCION" 


20 PRINT 
30 LET A$ = "FERNANDO" [SIGUE 


40 LET B$ = "LAGASCA, 41" 
30 PRINT A$ SFC( 13)B$ 


RUN 


NOMBRE DIRECCION 


RND 
Formato: RND (expresión numérica) 


Nos permite obtener números aleatorios al azar. En general, esta 
función se utiliza en problemas de simulación y estadística. 


En APPLESOFT, RND nos proporciona siempre un valor real 
mayor o igual a O y menor que !. El valor proporcionado puede ser 
uno dentro de tres grupos de números dependiendo del signo de la 
expresión numérica, según sea mayor que 0, igual a 0 o menor que 0. 


Si la expresión es positiva, RND proporciona un valor diferente 
cada vez que se utiliza, a no ser que se haya iniciado una secuencia 
repetible. 


Una secuencia repetible se inicia cuando RN D se emplea con una 
expresión negativa. Cualquier valor negativo genera siempre la 
misma secuencia; los argumentos positivos posteriores proporciona- 
rán una secuencia repetible de números, iniciándose una secuencia 
repetible distinta por cada valor negativo distinto de la expresión 
numérica. Si la expresión numérica es cero nos proporcionará el 
número aleatorio más recientemente generado. 


PRINT RND (2) 
121350110 

PRINT RND (5) 
3.53753567 E-02 

PRINT RND (10) 
852658093 


4. DEFINICION DE FUNCIONES 
POR EL PROGRAMADOR 


Además de estas funciones propias que posee el lenguaje BASIC, 
éstas permiten al programador definir funciones de una variable 
mediante la sentencia DEF. 


Formato: DEF FN nombre de variable (argumento) = expresión 
numérica. 


Ejemplo: 


DEF FNA (X) = 2*x+5 


Definimos la función de una variable que llamamos FNA, la cual 
cada vez que aparezca en el programa actuará sobre el argumento 
según la definición dada; si por ejemplo: 


D=-2 entonces FNA(D)=1 


El nombre de la variable identifica la función a la que podremos 
referirnos posteriormente con el nombre de FN nombre de variable; 
la función vendrá definida por la expresión numérica. El argumento 
es un nombre de variable ficticia que normalmente aparecerá en la 
expresión numérica; el nombre que le demos al argumento no tiene 
ningún efecto sobre cualquier otra variable con el mismo nombre en 
cualquier lugar del programa. 


Cuando nos vayamos a referir a una función definida anterior- 
mente dentro de un programa lo haremos de la forma: 


FN nombre de variable (argumento) 


Este argumento estará especificado por una constante, una varia- 
ble o una expresión numérica, que sustituirá al argumento ficticio 
dentro de la expresión numérica. 

Los valores de las restantes variables dentro de la expresión 


numérica se deben definir antes que se haga referencia a la función 
definida con FN nombre de variable (argumento). 


La definición de la función debe aparecer dentro de un programa 
en una sola línea. 


Una función previamente se puede incluir dentro de una expre- 
sión numérica, de modo que se pueden desarrollar funciones defini- 
das por el usuario de la complejidad que se desee. 


10 LET PI = 3.141593 

20 DEF FN AREA(R) = PI Xx R”2 

30 INPUT "RADIO "¡RADIO 

40 PRINT "AREA ES "; FN AREA(RADIO) 


RUN 
RADIO 2 


AREA ES 12.5366372 


5. FUNCIONES TRIGONOMETRICAS 
DERIVADAS 


Ya hemos visto anteriormente las funciones trigonométricas que 
aporta el lenguaje BASIC, pero nos encontramos sin tener recursos de 
funciones propias del BASIC en el momento que pretendamos reali- 
zar programas mucho más enriquecidos en el aspecto de funciones 
trigonométricas, para lo cual no tendremos más remedio que definir- 
nos nuestras propias funciones trigonométricas que vayamos a utili- 
zar; naturalmente éstas serán todas aquellas que el propio lenguaje 
BASIC no nos proporciona. 


En el caso de la función LOG ya vimos qué tendríamos que hacer 
cuando el logaritmo a calcular no lo queríamos en base natural sino 


en base diez; ahora exponemos cómo podremos calcular otras fun- 


ciones trigonométricas que no existen dentro del propio lenguaje 
BASIC, así: 


SECANTE 
SEC (X)=1 / COS (X) 


Por ser la secante, la función directa del coseno. 


COSECANTE 
CSC (X) =1 / SIN (X) 


La cosecante es la función inversa del seno. 


ARCO SENO 
ARCSIN (X) = ATN (X / SQR (1—X*X) 


Debiéndose cumplir que el valor absoluto de X sea menor que 
|. ABS(X)< I, para no entrar en la imposibilidad de calcular la raíz 
cuadrada de un número negativo y no dividir por cero. 


ARCO COSENO 
ARCCOS (X) = 1.5707633—ATN (X/SQR(1—X*X)) 
También se deberá cumplir que ABS (X)< 1. 


ARCO SECANTE 
ARCSEC (X) = ATN (SQR(X*X—-1)) + (SGN (X)—1)*1.5707633 
Debiéndose cumplir que ABS (X) > 1. 
SGN es la función BASIC, signo. 


ARCO COSECANTE 
ARCCSC (X) = ATN (1/SQR(X*X—1)) + (SGN (X) —1) * 1.5707633 


ABS (X) deberá ser mayor o igual que 1. 


ARCO COTANGENTE 
ARCCOT (X) = 1.5707633 — ATN (X) 


Al utilizar estas funciones deberemos codificarlas con la sen- 
tencia DEF FN ya que, como dijimos, no son funciones que estén 
incorporadas dentro del lenguaje BASIC. Por ejemplo, en vez de 
codificar la fórmula del ARCO COSECANTE cada vez que se 
necesita deberíamos de codificar: 

DEF FNARCOSC (X) = (1 / SQR (X * X — 1)) + (SGN (X) — 1) * 1.5707633 

Y referirnos a ella, una vez que se haya codificado como 


FNARCCSC (Y) 


cada vez que la necesitemos. 


Pl) 


P2) 


P3) 
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Escribir una preposición BASIC que corresponda a cada una 
de las siguientes ecuaciones algebráicas. 
a) Z = Tan T 
b) W = log, (V) 
c) W = aebX sen CX 
4 a 2 — dac 
) ES 2a 
Escribir una preposición en BASIC que corresponda a cada 


una de las siguientes ecuaciones algebráicas. 
a) ya sen X — cos X 
bd) p=qew 


c) c=lo0g. Wla+bl+log. X/ | a — bl 


d) z=cCOosS (X — arctan Y) 


Escribir una preposición en BASIC para cada una de las 
siguientes situaciones: 


a) Determinar el valor absoluto de la diferencia entre las 
variables U y V, y asignar este valor a la variable W. 


P4) 


PS) 


P6) 


b) Determinar el signo de X; si X es negativo ir a la línea 50; 
si X es igual a cero, ira la línea 20, y si X es mayor que cero 
ira la línea 170. 


c) Determinar el mayor número que algebráicamente no 
excede a Z, donde Z=x?—y? y asignar este valor a la 
variable 1. 


d) Determinar los valores de X$, X, Y$, Y en una línea 
haciendo que X$ comience en la 5% columna, seguida 
inmediatamente por el valor de X; de forma similar que Y$ 
empiece en la columna 25 seguido inmediatamente por el 
valor de Y. 


Determinar si el valor de la variable N es par o impar, asu- 
miendo que el valor de N es entero y positivo. (Ayuda: compá- 
rese el valor de N/2 con el valor truncado de N/2). 


Cada una de las siguientes definiciones de función o referencias 
de función tienen errores; identificar todos los errores. 
a) DEF FNW (C/ 2) =((1 + EXP(3)*C 7 2)/B 


b) 10 DEF FNC(T1) = ((T1 — 7)/3)4 2 
60 LET V = C*FNC(F$) 


c) DEF FN4 (X(1)) = X(1) * EXP (3) 


Hacer un programa para que el ordenador genere un número 
del 0 al 9. Nosotros introduciremos del 0 al 9 y cuando acerte- 
mos el número generado por el ordenador nos displaye 
“ACERTADO” junto a la cantidad de números que hemos 
entrado. 


P7) Hacer un programa que nos imprima una tabla logarítmica 
(logaritmo en base 10) de los primeros quince números 
naturales. 


No pasar la página hasta haber realizado los ejercicios planteados. 
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RI) a) Z=TANCT) 
b) W=LOG(V) 
c) Y = A*EXP(B*X)*SIN(C*X) 
d) XI =(—B+SQR(B? 2-4*A*C))/(2*A) 
R2) a) Y =SQR(SIN(X)—COS(X)) 
b) P=Q*EXP(—Q*T) 
e)  C= LOG(SQR(ABS(A+B)) + LOG(SQR(ABS(A—B)) 
d) Z=COS(X—ATN(Y)) 
R3) a) W=ABS(U—V) 


D) 1105 = SGN (X) 
120 IF S < O THEN 50 
130 IF S = O THEN 20 
140 IF S > O THEN 170 


c) I=INT(X2— Y 42) 

Por ejemplo, si X=2.5 e Y=6.3, el valor que se asignará a la 
variable 1 sería x2—y2=—-33.44, por lo que I=—-34 

d) PRINT TAB(S) XS; X: TAB(25) Y$; Y 


R4) 10 IF NMOD2 = O THEN PRINT "PAR" 
20 IF NMOD2 < > 0 THEN FRINT "IMPAR" 
Con la función MOD vemos que sería muy fácil, y tal como nos 
indica el enunciado del problema sería: 
10 LET REAL = N / 2 
20 LET ENTERO% = N / 2 


30 IF REAL = ENTERO% THEN PRINT "PAR" 
40 IF REAL < > ENTERO% THEN PRINT "IMPAR" 


R5) a) DEF FNW (CA 2)=((I+EXP(B)*C 4 2))/B 
No se pueden usar constantes ni fórmulas como argumentos 


ficticios. 


R6) 


R7) 


b) 10 DEF FNC(TI) = C(TI—7)/3)1 2 
60 LET V = C*FNC(F$) 


El argumento en la referencia a la función no coincide con el 
tipo del argumento ficticio en la definición de la función. 


c) DEF FN4(X(1)) = X(1)7 EXP(G) 


Esta definición de función contiene dos errores: 

|.— El nombre de la función es incorrecto (4). 

2.— No pueden aparecer variables subindicadas como 
argumentos ficticios. 


DEF FNY (X) = 0.01 * INT (100*(X+0.0051) 


10 LET NUMZ = RND (3) * 10 

15 LETC = 1 

20 INPUT "NUMERO ";NZ 

30 IF NZ< 5 NUMZ THEN C = C + 1: GOTO 20 

40  PRINT "ACERTADO"; " al NUMEROS ENTRADOS 
= "sE 

50 END 


10 LETN= LOG (10) 

20 PRINT TAB( 5) "NUMEROS" TAB( 20) "LOGARITMO 
DECIMAL" 

30 PRINT TAB( 5)"------- " TABC 20) "===> 

40 PRINT 

50 LETN%Z = 1 

60 PRINT TAB( 9)N% TAB( 24) LOG (N%) / N 

70 IF NZ < 15 THEN NZ = NZ + 1: GOTO 60 


80 END 
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INSTRUCCIONES DE CONTROL 
DE SECUENCIA 


1. BIFURCACION INCONDICIONAL. GOTO. 


Formato: GOTO línea 


Durante la ejecución del programa, la instrucción GOTO bifurca 
incondicionalmente, fuera de la secuencia normal del programa, a un 
número de línea especificado. 


Se llama bifurcación incondicional debido a que la bifurcación o 
cambio de secuencia en el orden de ejecución no se debe a ningún 
resultado de comparaciones anteriores. 


La ejecución del programa continúa inmediatamente en la pri- 
mera instrucción del número de línea indicado. Si no existe dicho 
número de línea se producirá el siguiente mensaje de error. 


? UNDEFD STATMENT ERROR 


Veamos el siguiente ejemplo que nos calcula el área del círculo 
para un radio dado. 


10 INPUT "RADIO "¿R 

20 PRINT "R = "¡¿R 

30O LETA= 3.141593 *R ” 2 
40 PRINT "AREA = "¡A 

350 GOTO 10 


RUN 

RADIO 5 
R=5 

AREA = 78.5 
RADIO Ls 
R=7 

AREA = 153.86 
RADIO 12 

R = 12 

AREA = 452.16 
RADIO 


Este programa no acabaría nunca su ejecución, pues siempre llega 


a ejecutarse la línea 50 y de ésta se bifurca siempre a la diez. En el 
lenguaje informático, cuando ocurre este problema, se suele decir que 
nos hemos metido en un BUCLE SIN SALIDA. 


2. BIFURCACION CONDICIONAL. IF. 


Formatos: 
IF expresión THEN sentencia [:sentencia]... 


THEN 
IF expresión GOTO línea 
THEN GOTO 


En el primer formato la expresión específica una condición que, si 
es cierta, hace que se ejecuten cada una de las sentencias a continua- 
ción del THEN y, si es falsa, la secuencia de ejecución continúa con la 
primera sentencia de la siguiente línea, no ejecutándose ninguna de las 
sentencias a continuación del THEN. 


IF A> B THEN A = A+1 
IF B=C THEN PRINT B:A=C+1 
IF C< 1 THEN A=A+B : PRINT C: GOTO 10 


Estas tres instrucciones IF son correctas sintacticamente. Obser- 
vemos que a continuación del THEN puede ir más de una instrucción 
y, si así ocurre, tendremos que tener la precaución de separarlas por 
dos puntos, al igual que hacemos cuando codificamos en una línea 
más de una instrucción. 


Nunca debemos codificar en la misma línea una instrucción IF 
seguida de cualquier otra instrucción, ya que entonces la segunda 
sería considerada como una instrucción dentro del conjunto de ins- 
trucciones que pueden aparecer en el THEN y no como una instruc- 


ción independiente. 


Por ejemplo, si pretendemos codificar que cuando A sea mayor 
que | se le sume l a C e, independientemente de esto, después se 
imprima el valor de B, y lo hacemos así: 


50 IF A> 1 THEN C= C+1 : PRINT B 
solamente se imprimirá el valor de Bcuando A fuese mayor que l y no 
siempre. Deberemos de codificarlo así: 


50 IF A> 1 THEN C= C+1 
60 PRINT B 


o de esta otra forma: 
50 PRINT B: IF A> 1 THEN C= C+1 


De los tres ejemplos expuestos, su funcionamiento es el siguiente: 
En el primero: 
IF A> B THEN A= A+1 
si el contenido de A es mayor que el de B, entonces se le suma | al 
contenido de A. 
En el segundo: 


IF B=C THEN PRINT B : A= C+1 


siel contenido de B es igual al de C, entonces se visualiza por pantalla 
el contenido de B y además se le suma 1 al contenido de C, asignando 
dicho valor a la variable A. 


En el tercero: 


IF C< 1 THEN A= A+B : PRINT C : GOTO 10 


si el contenido de C es menor que l, entonces se suman los contenidos 
de las variables A y B, dejándose el resultado en la variable A, se 
imprime el contenido de la variable C y se bifurca a la línea 10. 


Cuando dentro de las sentencias del THEN existe una que es la 
sentencia GOTO ésta deberá de ir en último lugar, tal como en el 
ejemplo 3; esto es lógico ya que si no ocurriera así, las sentencias a 
continución del GOTO no se ejecutarían nunca. 


La expresión, como hemos visto en los ejemplos, la mayoría de las 
veces será una expresión relacional; es decir, una comparación. 


Definiremos como COMPARACION NUMERICA aquella en 
que las dos expresiones que se van a comparar son numéricas. 


2< LOG (A) 
A>3 
AFICS 
B+A<>C 
C>=25 


en cada uno de estos casos los operandos que se comparan son 
siempre numéricos. El resultado de dicha comparación será VER- 
DADERO o FALSO, de acuerdo con los valores que toman las 
expresiones, y dependiendo naturalmente del operador que utili- 
cemos. 


Recordemos que los operadores de relación son: 


Igual 


> Mayor que 
< Menor que 
>= 6 => Mayor o igual 
<= ó6 =< Menor o igual 
<>6 >< Distinto o no iguales 


Definiremos como COMPARACION ALFANUMERICA o 
LOGICA aquella en que las expresiones que se van a comparar son 
alfanuméricas; así sería correcto comparar: 

AS > “LUIS” 
BS< ="“B” 

La comparación de tipo alfanumérico se efectúa haciendo compa- 
raciones de izquierda a derecha, carácter a carácter según el valor del 
carácter en CODIGO ASCII, deteniéndose la comparación en el 

) momento en que encuentre dos caracteres distintos decidiéndose, en 
ese momento, el resultado de la comparación. 


Si tenemos: 


10 LET A$ = "PEFE" 


20 LET E$ "PEPA" 
3O IF A$ > B$ THEN FRINT A$ 
40 END 


El resultado de la comparación daría verdadero por tener la “E” 
un valor ASCII más alto que la “A” y, por tanto, este programa nos 
visualizaría PEPE. Observemos que, en este caso, la comparación ha 
tenido que continuar hasta comparar los dos últimos caracteres de A$ 
y B$ ya que los tres primeros eran iguales. 


Veamos qué resultados nos darían las siguientes comparaciones 
alfanuméricas: 


“ANTONIO” <“B” daría VERDADERO; la comparación 
se detiene en el primer carácter. 


“JUAN” = “JUAN” daría VERDADERO; tienen el mismo 
número e iguales caracteres. 


“MESA” >“MESILLA” daría FALSO; la I tiene un valor ASCII 
superior a la “A”. 


“BLANCO” >“BLANCO ” daría VERDADERO, pues aunque las 
letras son iguales, el segundo literal 
no numérico tiene algún carácter 
blanco después de la “O”, 


Nota importante: Nunca podremos comparar expresiones numéricas 
con expresiones alfanuméricas. 


También la expresión numérica puede constar de una sola expre- 
sión numérica. 
Ejemplo: 
IF A THEN B= B + 3 


el resultado será verdadero cuando el valor de la expresión (en este 
caso la variable A) sea distinta de cero, considerándose falso si el valor 
de la expresión es igual a cero. 


En el segundo formato, el programa bifurca a un número de línea 
si la condición es cierta. Si no es así, continúa la ejecución con la 


primera sentencia de la siguiente línea del programa: 


IF A = 1 THEN 60 
IF A=1 GOTO 60 
IF A= 1 THEN GOTO 60 


Estas tres codificaciones de la instrucción IF son equivalentes. 


IF JERARQUICOS 


Hemos visto que según el primer formato de la instrucción IF a 
continuación de THEN puede ir más de una sentencia. 


Cuando alguna de estas sentencias es una instrucción IF llamare- 
mos a esta sentencia 1F con el nombre de JERARQUICO. Así, por 
ejemplo, podríamos codificar: 


IF A> B THEN IF B > C THEN PRINT “EL MAYOR ES A”, A 


El funcionamiento de esta instrucción es el siguiente: si A es 
mayor que B se comprobará si B es mayor que C por ser la primera 
condición cierta. Si la segunda condición es cierta, entonces efectúa la 
instrucción que tiene el segundo THEN, por lo que imprimirá el 
mensaje “EL MAYOR ES A” y el contenido de la variable A. 


Si la primera condición no hubiese sido cierta, la secuencia de 
ejecución del programa pasa a ejecutar la primera instrucción de la 
siguiente línea. 


Si la primera condición hubiera sido verdadera, dando la condi- 
ción segunda un resultado de falso el resultado sería igual que cuando 
la condición primera es falsa. Es decir, pasaría la secuencia del 
programa a ejecutar la primera instrucción de la siguiente línea, pues 
el primer THEN tiene como única instrucción a realizar una sentencia 
Ir, 


IF LOGICOS 


Llamaremos IF LOGICOS a aquellos IF en los cuales la condi- 
ción es COMPUESTA o, lo que es lo mismo, consta de varias expre- 
siones de relación unidas por los operadores lógicos NOT, AND y 
OR. 

Así el ejemplo anterior podría haberse sustituido por el IF 
LOGICO siguiente: 

IFA>BANDB>C THEN PRINT “EL MAYOR ES A”,A 

La condición compuesta será verdadera cuando A > B es verda- 
dero y también es verdadera la condición B > C por estar unidas con 
el operador AND. 

Recordemos que el orden de prioridad de ejecución en las expre- 
siones lógicas es el siguiente: 


19) Se efectúan las operaciones de relación. 
29) Se efectúan los paréntesis más internos. 
39) Se efectúan las operaciones NOT. 

49) Se efectúan las operaciones AND. 

59) Se efectúan las operaciones OR. 


Sabiendo que, en caso de duda por la existencia de dos operacio- 
nes con igual prioridad, siempre se ejecutan de izquierda a derecha. 


Veamos un ejemplo: 


NOT (A=B) OR B$= “ANA” AND (C< D OR NOT (C=B)) 


El orden de ejecución de esta condición compuesta sería el 


siguiente: 


19) Se efectúan las operaciones de relación (comparaciones), 
dando cada una de ellas un resultado VERDADERO o 
FALSO. 


29) Se efectúa el NOT (C=B) por estar en un paréntesis más 
interno, dando un resultado de VERDADERO o FALSO. 


39) Se efectúa el OR dentro de ese paréntesis, así ya tendremos el 
resultado VERDADERO o FALSO de 


C< D OR NOT (C=B) 
40) Se efectúa NOT (A=B), ya que no existen ya paréntesis más 
internos y ninguna NOT más a la izquierda. 
59) Seefectúa la operación BS=“ANA” AND resultado del paso 32, 


6%) Por último se efectúa el OR entre el resultado del paso 42 y el 
paso 52, dando como siempre un resultado VERDADERO o 


) FALSO 
Representaremos lo visto anteriormente mediante el siguiente 
esquema: 
NOT (A=B) OR B$= “ANA” AND (C< D OR NOT (C=B)) 
A AAA 
40 20 
30 
9 72" 7 
50 
——_ 9922" 


No siempre podremos sustituir un IF JERARQUICO por un IF 
LOGICO. Veamos el siguiente ejemplo: 


30 IF AI=C1 THEN B=B+1:IF A1 < C2 THEN PRINT “VERDADERO” 


no podremos hacer: 


30 IF A1I=C1 AND Al < C2 THEN PRINT “VERDADERO” 


ya que nos dejaríamos la operación de incrementar a la variable B con 
el valor 1. 


Tenemos que observar que B se incrementará en | siempre que Al 
sea igual a Cl, y para que se visualice por pantalla el literal no 
numérico “VERDADERO” se ha de cumplir no solamente que Al 
sea igual a Cl sino, además, que Al sea menor que C2. Entonces sí 
que podríamos sustituir el IF jerárquico mediante las dos siguientes 
sentencias IF: 


C1 THEN B=B +1 
C1 AND Al <¿ C2 THEN FRINT "VERDADERO" 


30 IF Al 
40 IF Al 


Pongamos un ejemplo de un programa tal que, introducidos tres 
valores numéricos, nos devuelva cuál es el mayor de los tres y un 
valor. 


Suponemos que en los valores introducidos nunca se dará el caso 
de igualdad. Es decir, que sean siempre distintos. 


10 INPUT "TRES NUMEROS ";¡A,B,C 

20 IFA + B THEN 50 

JO IFB>C THEN PRINT "EL MAYOR ES B ",B: GOTO 70 
40 FPRINT "EL MAYOR ES C ",C: GOTO 70 

0 IFA? C THEN FRINT "EL MAYOR ES A ",A: GOTO 70 


60 PRINT "EL MAYOR ES C ",C 
70 END 


Este mismo programa utilizando IF JERARQUICOS se podría 
haber codificado así: 


10. INPUT "TRES NUMEROS "¡A,B,C 

20 IFA > BTHEN IF A > C THEN PRINT "El MAYOR ES A " 
¿Az GOTO 50 

30 IF NOT (B< A) THEN IF B > C THEN PRINT "EL MAYOR 


ES B ";B: GOTO 50 
40 PRINT "EL MAYOR ES C ";C 
30 END 


y codificado mediante IF LOGICOS sería: 


10  INFUT "TRES NUMEROS ";¡A,B,C 
20 IFA BANDA > C THEN FPRINT "EL MAYOR ES A ";A: 


GOTO 350 

30 IF BAANDB > C THEN FPRINT "EL MAYOR ES BE ";¡B: 
GOTO 50 

40 PRINT "EL MAYOR ES C "¡C 

50 END 


3. INSTRUCCION ON GOTO 


Formato: ON expresión GOTO línea, [,línea...] 


' Bifurca a uno de los diversos números de línea especificados, 
según sea el valor de una expresión. 


La expresión ha de ser numérica, que se redondea a un número 
entero si es necesario. Debe pertenecer al rango de O a 225, de lo 
contrario se produce un error y nos aparecerá el mensaje: 


? ILLEGAL QUANTITY ERROR 
Línea es el número de línea a la que deseamos bifurcar. 


Si, por ejemplo, la expresión toma valor 3, el tercer número de 
línea en la lista sería el destino de la bifurcación. 


ON N GO TO 100, 200, 300 


Si N toma el valor 1 la secuencia de ejecución del programa 
continuará con la primera sentencia de la línea 100; si toma el valor 2 
continuaría en la 200 y, si toma 3, continuaría con la primera senten- 
cia de la línea 300. 


Si la expresión evalúa a cero, o a un valor mayor que la cantidad 
de números de línea indicados, la ejecución del programa continúa 
con la siguiente instrucción, después de la ON GOTO, bien si se 
encuentra en la misma o bien si se encuentra en la línea siguiente. 


Veamos otro ejemplo: 


100 ON L - 1 GOTO 150,300, 320,390 
110A=A+1 


Bifurcará a la línea 150 si L—-1 es iguala l, a la línea 300 si L—-1 es 
igual a 2, a la línea 320 si L—-1 es igual a 3, y a la línea 390 si L—-1 es 
igual a 4. 


Si L—-1 es igual a 0 o mayor que 4, el programa continúa con la 
siguiente sentencia, que en este caso se encuentra en la línea 110. 


La utilización del ON GOTO nos facilita la codificación de un 
programa. Veamos cómo deberíamos haber codificado lo equivalente 
a la línea 100 si no dispusiéramos de la sentencia ON GOTO, ten- 
dríamos que haber hecho: 


98 REM PARA REDONDEAR L-1 A ENTERO 


97 LET ENZ = 4d 

100 IF ENZ = 1 THEN 150 
101 IF EN% = 2 THEN 300 
102 IF EN% = 3 THEN 320 
103 IF ENZ = 4 THEN 390 


110 LETA=A +1 


Veamos otro ejemplo con la aplicación de la sentencia ON GOTO 
en un programa tal que introducidos dos números nos calcule si 
elegimos la opción 1 la SUMA, si elegimos la opción 2 la RESTA, si 
la 3 la MULTIPLICACION y si la 4 la DIVISION. 


10 REM PROGRAMA CON UTILIZACION DE ON GOTO 

20 REM FORMATEO DE LA PANTALLA 

30 HOME 

40 VTAB 2: HTAB 5: PRINT "OPERACIONES CON DOS NUMEROS" 

50 VTAB 7: HTAB 2: PRINT "PRIMER NUMERO" 

60 VTAB 10: HTAB 2: PRINT "SEGUNDO NUMERO " 

70 VTAB 12: HTAB 2: PRINT "EL RESULTADO DE LA "; 

80 VTAB 18: HTAB 2: PRINT "1-SUMA, 2-RESTA, 3-MULT, 
4-DIV" 

90 REM ENTRADA DE LOS NUMEROS Y DE LA OPCION 

100 VTAB 7: HTAB 16: INPUT " ";N1 

110 VTAB 10: HTAB 17: INPUT " "¿N2 

120 VTAB 18: HTAB 33: INFUT " ";¡O0P% 

130 REM CONTROL DEL NUMERO ENTRADO 


140 IF OPZ% < 1 OR OPZ > 4 THEN 120 


REM OPCIONES A TOMAR 
ON OFP% GOTO 170,200, 230, 260 


REM 
VTAB 
GOTO 
REM 
VTAB 
GOTO 
REM 
VTAB 
GOTO 
REM 
VTAB 
END 


SUMA 
124 
280 
REST 
128 
280 


HTAB 20: 


A 
HTAB 20: 


PRINT 


PRINT 


MULTIPLICACION 


12: 
280 
DIVI 


12: 


HTAB 20: 


SION 
HTAB 20: 


PRINT 


PRINT 


"SUMA ES "¿N1 + N2 


"RESTA ES ";N1 - N2 


"MULTIPLICACION ES "¡Ni *k N2 


"DIVISION ES "¿Ni / N2 


INSTRUCCION CON DIRECCION 
DE RETORNO. GOSUB. 


Cuando escribamos programas con bastantes instrucciones nos 
encontraremos con que alguna parte del programa se utiliza muchas 
veces. Por ejemplo, supongamos que un vector se inicializa con 
frecuencia en diferentes puntos de nuestro programa. 


Comienzo del programa Il 


l 

| 

a 

po 

| +————— Rutina repetida 
1 

pte 

| 

I 


Fin del programa | 


En el gráfico expuesto se repite sólo tres veces, por lo que codifica- 
ríamos el proceso repetido en los tres lugares indicados; pero si fueran 
más el número de las veces a repetir y la rutina constase de un número 
elevado de instrucciones, en primer lugar, gastaríamos más tiempo 
por repetir la codificación y en segundo lugar, y más importante, 
gastaríamos más memoria ya que tenemos instrucciones repetidas. 
De aquí nace el concepto de SUBRUTINA, y vamos a llamar 
SUBRUTINA a aquel grupo de instrucciones que se repiten en 


nuestro programa. 


Nuestro objetivo será codificar la SUBRUTINA solamente una 
vez y bifurcar a ella cuando la necesitemos, con lo cual ahorramos 
tiempo de codificación y memoria. 


Claro que con la instrucción GOTO no podemos efectuar tal 
proceso ya que nos encontraríamos con el siguiente problema: 


COMIENZO 
DEL PROGRAMA 


etc. 


10 
100 GOTO 2000 

110 

190 GOTO 2000 SUBRUTINA 

200 Bl 2 Comienzo 
250 GOTO 2000 A 

260 215 — Final 

480 GOTO 2000 ¿A dónde 

500 volvemos? 


Es decir, nuestro problema no está en la ida a la ejecución de la 
rutina sino en la bifurcación de vuelta, ya que unas veces tendremos 
que volver a la línea 110, 200, 260 o a la 500. 


La instrucción GOSUB nos resuelve este problema ya que la 
sentencia RETURN devuelve el control de ejecución del programa a 
la sentencia siguiente (sentencia de llamada). 


COMIENZO DEL 1 
PROGRAMA 
100 GOSUB 2000 


110 


SUBRUTINA 


190 GOSUB 2000 


200 2000 _- — Comienzo 


. 215 RETURN Final 
250 GOSUB 2000 
260 


480 GOSUB 2000 
500 


etc. 


GOSUB 


Formato: GOSUB línea 


Produce una bifurcación del programa a la línea indicada. 


Cuando se ejecuta una sentencia RETURN, el programa bifurca, de 
nuevo, a la instrucción inmediatamente después de GOSUB. 


Es conveniente codificar las subrutinas después de la sentencia 
END con el objetivo de no pasar por ellas sin pretenderlo; así si 
codificamos un programa con el siguiente orden: 


10 


100 GOSUB 300 


200 GOSUB 300 


300 REM COMIENZO DE LA SUBRUTINA 


350 RETURN 


600 END 


Pasaríamos dos veces a ejecutar las instrucciones de la subrutina 
por las correspondientes llamadas a ésta en la línea 100 y la línea 200 
y, además, volveríamos a pasar por ella sin haberla llamado. Además, 


los resultados serían erroneos y nos daría un mensaje de error al 
encontrarse con una sentencia RETURN sin la correspondiente 
GOSUB. 


Por lo cual, el orden de codificación debería haber sido este: 


10 
100 GOSUB 1000 
200 GOSUB 1000 


] 600 END 
1000 REM COMIENZO DE LA SUBRUTINA 
1010 --- 
1050 RETURN 


La instrucción GOSUB puede estar ANIDADA,; ocurrirá esto 
cuando al llamar a una SUBRUTINA y, a partir de ésta, se bifurca a 


la realización de otra SUBRUTINA. 


Veamos el esquema: 


10 


100 GOSUB 1000 


600 END 
1000 REM COMIENZA LA PRIMERA SUBRUTINA 


1050 GOSUB 2000 
1100 RETURN 
2000 REM COMIENZA LA SEGUNDA SUBRUTINA 


2200 RETURN 


El orden de ejecución sería el siguiente: 


1) Al ejecutarse la instrucción 100 se bifurca al número de línea E 
1000, que es el comienzo de la primera subrutina. 


2) Dentro de ésta hay una llamada a la línea 2000 o comienzo de 
la segunda subrutina, por lo cual se bifurca a la 2000. 


3) Una vez ejecutada la segunda subrutina la instrucción 
devuelve el control de ejecución a la siguiente sentencia a la 
GOSUB 2000. 


4) Se continúa la ejecución secuencialmente hasta que nos encon- 
tramos con la instrucción RETURN, que nos devolverá el 
control a la siguiente sentencia de llamada a la primera 
subrutina. 


Terminaremos diciendo que a una SUBRUTINA se le puede 
llamar desde cualquier punto del programa y que en APPLESOFT 
están permitidos hasta 25 niveles de anidamiento, lo cual nos asegura 
el no tener problemas respecto a la utilización de GOSUB anidados. 


ON GOSUB 
Formato: ON expresión GOSUB línea [ línea]... 


Nos proporciona llamadas a SUBRUTINAS dependiendo del 
valor actual de la expresión. 

La expresión ha de ser numérica, que se redondeará a un número 
entero si es necesario. Debe de pertenecer al rango de O a 255, de lo 
contrario se produce un error y nos aparece el mensaje: 

? ILLEGAL QUANTITY ERROR 


Línea será el número de línea a la que deseamos bifurcar. El 
funcionamiento es el mismo que el de la instrucción ON GOTO, con 
la diferencia que aquí llamamos a subrutinas, por lo que, una vez 
realizada la SUBRUTINA elegida, el control se devolverá a la 
siguiente sentencia de llamada, es decir la siguiente a la ON GOSUB. 


El objetivo que tiene la instrucción ON GOSUB es el de facilitar la 
codificación. 


Por ejemplo: 


100 ON A GOSUB 1300, 1400 


que bifurcará a la rutina que comienza en la línea 1300 si el valor de A 
es 1, oa la rutina que empieza en la línea 1400 si el valor de A es 2 sería 
lo mismo que haber codificado: 


100 IF A=1 THEN GOSUB 1300 
110 IF A=1 THEN GOSUB 1400 


Veamos un ejemplo más de cómo usar la sentencia ON GOSUB. 


1200 ON A GOSUB 2000, 3000 


1350 END 
2000 REM COMIENZO DE LA SUBRUTINA PARA A=I 


2090 RETURN 


3000 REM COMIENZO DE LA SUBRUTINA PARA A=2 


3100 RETURN 


REPASO CAPITULO 99 


P1) 


P2) 


P3) 


P4) 


P5) 


P6) 


P7) 


Suponiendo que Cl, C2,... Ci representan expresiones condi- 
cionales simples, evaluar la siguiente expresión: 


CI OR NOT C2 AND (C3 OR NOT C4 AND (CS OR C6) OR C2) 
para Cl = (3 = C5= VERDADERAS 
C2 = C4 = C6 = FALSAS 
Hacer un programa que nos haga la suma de los N primeros 
números pares. 


Hacer un programa que nos imprima los N primeros números 
múltiplos de $. 


Hacer un programa que entrando N números nos diga la 
cantidad de números pares entrados. 


Hacer un programa que entrando N números entre el O y el 9 
nos diga la cantidad de cincos y múltiplos de tres que hemos 
entrado. 


Hacer un programa que entrados tres números nos los visualice 
ordenados de menor a meyor. 


Hacer un programa que entrando N números nos diga el 
ordenador cuál ha sido el mayor, cuál el menor y en qué lugar se 
entraron. 


P8) Hacer un programa que nos genere las series de números de 
FIBONACCI, siendo ésta de la forma: 


dd O lo 


Finalizar la serie con el último número menor que 200. 


P9) Con la instrucción ON GOTO, realizar un programa que 
entrando un número del | al 5 el ordenador nos escriba el 
número en letras. 


P10) Realizar un programa tal que entrados dos números nos los 
escriba en pantalla ordenados de menor a mayor. 


Utilizar la instrucción GOSUB. 


No pasar la página hasta haber realizado los ejercicios planteados. 


SOLUCIONES CAPITULO 99 


RI) Cl=C3=C5= VERDADERAS 
C2 = C4= C6 = FALSAS 
Cl OR NOT C2 AND (C3 OR NOT C4 AND (C5 OR C6) OR C2) 
O” SO” a" 


R2) 


R3) 


60V 20 y 1o y 
TT 
—_T— 
a” 
AA y 


El resultado de la condición compuesta es VERDADERO. 


10 


20 
30 
40 
30 


REM — PROGRAMA PARA SUMAR LOS N PRIMEROS 
NUMEROS PARES 

INPUT "CUANTOS NUMEROS PARES ";N% 

LET C% = 1 

IF C% + N% THEN PRINT "LA SUMA ES ";¡S: END 
LET PARY = PARZ + 2 

LET S = S + PARZ 

LET CZ% = CZ + 1 

GOTO 40 


REM — PROGRAMA PARA IMPRIMIR LOS N PRIMEROS 
MULTIPLOS DE 5 


INPUT "CUANTOS MULTIFPLOS DE 3 ";Nz 
REM ACTIVAMOS LA IMPRESORA 
PR 1 


R4) 


R5) 


90 

100 
110 
120 


PRINT "LOS "¡N;" PRIMEROS MULTIFLOS DE 5 SON: 
LET CZ = 1 

IF C% > NZ THEN PR* O: END 

LET MULS = MULS + $3 

PRINT — TAB( 20)MULS 

LET C% = C% + 1 

GOTO 70 


REM PROGRAMA QUE NOS CUENTA LOS NUMEROS PARES 
INPUT "CUANTOS NUMEROS VAS A ENTRAR ";NzZ 

LET CA = 1 

IF C% + N% THEN PRINT "EL TOTAL DE PARES ES " 
ST%s END 

INPUT "NUMERO" ; NUM 

IF (NUM —- INT (NUM / 2) *X 2) = O THEN TZ = TZ 
+ 1 

LET LA * CA +1 

GOTO 40 


REM — PROGRAMA QUE CUENTA CINCOS Y MULTIPLOS DE 
TRES 

INPUT "CUANTOS NUMEROS VAS A ENTRAR "¿NZz 

LET C% = 1 

IF C% > N% THEN PRINT "TOTAL DE CINCOS "¡C5%: 
GOTO 110 

INPUT "DAME UN NUMERO DEL O AL 9 ";NUM% 

IF NUMZ < O OR NUMZ > 9 THEN 90 


IF NUMZ = 5 THEN CS5% = CS5% + 1: GOTO 90 
IF NUMZ = 3 OR NUMZ = 6 OR NUMZ = 9 THEN CM3% 
= CM3Z + 1 
LET CZ% = CZ% + 1 
GOTO 40 


PRINT "TOTAL DE MULTIPLOS DE 3 ";¡CM3% 
END 


R6) 


R7) 


R8) 


10 


Er 
pa 


30 
40 
JO 
60 
70 
80 


10 
20 
30 
40 
50 
60 
70 
80 


90 

100 
110 
120 
130 
140 
150 
160 
170 
180 


10 


20 


30 
40 


REM PROGRAMA QUE ORDENA TRES NUMEROS 
INPUT "DAME TRES NUMEROS SEPARADOS POR , "¡A, 
B,C 


IFA > B THEN AUX = A:A = B:B = AUX 
IFA > C THEN AUX = A:A = C:C = AUX 
IF B > C THEN AUX = B:B = C:C = AUX 


PRINT — TAB( 5) "ORDENADOS DE MENOR A MAYOR" 
PRINT— TAB( 5)A; TAB( 15)B; TAB( 25)C 
END 


REM PROGRAMA EL MAYOR Y MENOR Y SUS POSICIONES 
INPUT "CUANTOS NUMEROS VAS A ENTRAR ";NZ 
LET CZ = 1 
INFUT "NUMERO *:; NUM 
LET MAY = NUM: PM% 
LET MEN = NUM: PF% 
LET C% = CZ + 1 
IF C% > NZ% THEN PRINT "EL MAYOR ES ";¿MAY: 
GOTO 140 
INPUT "NUMERO "; NUM 
IF NUM * MAY THEN MAY 
IF NUM < MEN THEN MEN 
LET C% = CZ + 1 
GOTO 80 
FRINT "SU POSICION DE ENTRADA ES EL ";PM% 
FPRINT 
PRINT "EL MENOR ES "¿MEN 
PRINT "SU POSICION DE ENTRADA ES EL. "¡PP% 
END 


uo 
.. 


NUM: PM% 
NUM: PP% 


C%: GOTO 120 
Cs 


REM PROGRAMA QUE NOS GENERA LA SERIE DE 
FIBONACCI 


PRINT  TAB( 5)"SERIE DE FIBONACCI" 
PRINT 
LET ULTIMO% = 1 


R9) 


R10) 


LET PENULTIMO% = 1 

PRINT " ";¡ULTIMO% 

PRINT " ";PENULTIMO% 

LET NUEVO% = ULTIMO% + PENULTIMO% 
IF NUEVOZ% + 200 THEN END 

FPRINT " ";NUEVOZ 

LET PENULTIMO% = ULTIMO% 

LET ULTIMO = NUEVOZ. 

GOTO 70 


REM PROGRAMA CON UTILIZACION DE ON GOTO 
INPUT "DAME UN NUMERO DEL 1 AL 5";¿Nz 

IF NA < 1 OR NZ + 5 THEN PRINT "TE HAS 
EQUIVOCADO": GOTO 20 

ON N% GOTO 50,70,90,110,130 

REM — IMPRIMIR UNO Y ME VOY A FIN 

PRINT "UNO": GOTO 150 

PRINT * ";¡PENULTIMO% 

REM — IMPRIMO DOS Y ME VOY A FIN 

PRINT "DOS": GOTO 150 

REM — IMFRIMO TRES Y ME VOY A FIN 

PRINT "TRES": GOTO 150 

REM — IMPRIMO CUATRO Y ME VOY A FIN 
PRINT "CUATRO": GOTO 50 

REM — IMPRIMO CINCO Y ME VOY A FIN 
PRINT "CINCO": GOTO 150 

END 


REM PROGRAMA QUE ESCRIBE DOS NUMEROS 
ORDENADOS 
REM DE MENOR A MAYOR 


REM — NUMEROS = A,B 

INPUT "PRIMER NUMERO "¡A 
INPUT "SEGUNDO NUMERO ";¡B 
IFA > B THEN GOSUB 90 


PRINT "SALIDA ORDENADA ";A;" "¡B 

END 

REM — SUBRUTINA PARA CAMBIAR EL ORDEN DE LOS 
NUMEROS 


LETG=A 
LETA=B 
LETB=6G 


RETURN 
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CAPITULO 109 
BUCLES Y BUCLES ANIDADOS 


1. INTRODUCCION 


En muchos programas, como ya hemos visto, existen una serie de 
instrucciones que se repiten, que bien pueden ser para distintos 
valores de una variable que se va incrementando cada vez o bien que 
estas series de instrucciones se repiten un número de veces ya cono- 
cido. Es la formación de los bucles. 


Un esquema general sería: 


BUCLE 


CONJUNTO DE 
INSTRUCCIONES 
A EJECUTAR 


COMIENZO 
DEL 
BUCLE 


SI 


Hasta ahora hemos podido realizar BUCLES a través de un 
contador y la instrucción IF... THEN. 


Otra forma más cómoda de realizar BUCLES es a través de la 
instrucción FOR. 


2. INSTRUCCION FOR NEXT 


Formato: 


FOR variable = expresión-1 TO expresión-2 [STEP expresión-3] 


NEXT [variable] [variable]... 


La instrucción FOR comienza un bucle que repite un juego de 
instrucciones hasta que una variable, automáticamente incrementada 
o decrementada, alcanza un cierto valor. 


La VARIABLE es una línea numérica entera o real que será 
utilizada como contador. 


EXPRESION-] es una expresión numérica con la que se inicia- 
liza la VARIABLE. 


EXPRESION-2 es una expresión numérica que será el valor final 
del contador. 


EXPRESION-3 es una expresión numérica que será utilizada 
como incremento o decremento. 


A las instrucciones incluidas entre el FOR y el NEXT se le llama 
RANGO del FOR. 


Veamos mediante un organigrama cómo es el funcionamiento de 
la sentencia FOR. 


Funcionamiento de la sentencia FOR NEXT para incremento 
positivo. 


VARIABLE=SEXPRESION 1 


Continúa la ejecución del 
programa con la siguiente 
instrucción al NEXT 


VARIABLE 
EXPRESION 


Instrucciones 
del rango 
del FOR 


VARIABLE = VARIABLE + EXPRESION3 


Se inicializa la variable con el valor de expresión — | y se compara 
con el valor de la expresión —2. Si el resultado da menor o igual se 
ejecutan las líneas de programa a continuación de la sentencia FOR 
hasta que aparezca la sentencia NEXT. 


Entonces el contador se incrementa con la cantidad especificada 
con la expresión —3. 


Si no se codifica STEP se supone que el incremento es de |. A con- 
tinuación, se verifica si el valor del contador es ahora mayor que la 
expresión — 2. Si no es mayor se vuelven a efectuar las instrucciones 
del rango del FOR y el proceso de repetición. Sies mayor, la ejecución 
continúa con la sentencia siguiente a la sentencia NEXT. 


Así, por ejemplo, el programa siguiente nos visualiza los primeros 
diez números naturales. 


10 FOR 1 = 1 TO 10 
20 PRINT 15" "; 

30 NEXT 1 

40 END 

45 PRINT "RUN" 

50 PRINT "12345678910" 


RUN 
12345678910 


Si el valor de la expresión — 3 (INCREMENTO) es negativo se 
hace la comprobación al contrario. Es decir, saldrá del BUCLE 
cuando el valor de la variable sea menor que el valor de la expresión 
—2(VALOR FINAL) decrementándose el valor de la variable cada 


vez. 


Por ejemplo, tendremos el mismo resultado que antes con la 
siguiente rutina, obteniendo las resultados en orden inverso: 


10 FOR I = 10 TO 1 STEP. - 1 

20 PRINT I3" *”; 

30 NEXT I 

40 END 

45 PRINT "RUN" 

90 PRINT*"1098746454321? 


RUN 
0Ya7rb6DReOSZJI 


Si el incremento es cero se creará un bucle infinito. 


El valor de la variable puede ser modificado dentro del rango del 
FOR. 


Así el programa: 


10 FOR I = 1 TO 10 
20 LETTIS=I]I4+1 
30 PRINT I;" "; 

40 NEXT 1 

50 END 


Nos produce la salida de los cinco primeros pares: 


2 e 6 8 10 


La instrucción NEXT puede llevar la variable a continuación, tal 
y como lo hemos codificado en los ejemplos anteriores; pero si no lo 
lleva, esta instrucción NEXT será asociada a la variable del FOR más 
recientemente ejecutado. 


Dentro de las sentencias del rango del FOR podremos salirnos 
con una instrucción GOTO. Es decir, sería válido hacer: 


30 FOR I=l TO 99 


50 GOTO 100 


70 NEXT 1 


100 A=B+C 
Pero nunca podremos entrar con una instrucción GOTO dentro 
de las instrucciones del rango del FOR. Es decir, no será válido hacer: 


50 GO TO 100 


80 FOR J=3 TO 27 STEP 2 
90 
100 


150 NEXT J 


Produciéndose el siguiente mensaje: 


? NEXT WITHOUT FOR ERROR 


Veamos un ejemplo más de la utilización de la sentencia FOR 


NEXT. Realizaremos un programa para construir una tabla de valo- 


res de la función y = x? — 3x — 7 para valores de x desde x=1 hasta 
x=2, con un incremento de 0.2 


10 REM CALCULO DE LA ECUACION Y=X"2+3XX-7 
20 FOR I = 1 TO 2 STEP .2 


3O LETY=1"*2+3%1-7 

40 PRINT "VALOR DE X = ";I;" "s "VALOR DE Y = ";Y 
SO NEXT 1 

60 END 


Veamos otro ejemplo más de la instrucción FOR NEXT que 
consistirá en averiguar si introducido un número es o no primo. 


10 
20 


90 


REM — VER SI ES PRIMO 
INFUT "INTRODUZCA UN NUMERO ";N1 


IF Ni = 2 THEN PRINT "EL NUMERO "¡N1;" ES PRIMO": 
GOTO 100 


= 2 
LET Q = Ni / 1 
LET Q1 = INT (0) 
IF Q = Q1 THEN 90 
PRE O 
NEXT 1 
PRINT "EL NUMERO "¡N1;" ES PRIMO": GOTO 100 
PRINT "EL NUMERO ":N1;" NO ES PRIMO” 


100 END 


3. ANIDAMIENTOS DE FOR 


Un bucle puede estar embebido o anidado dentro de otro, de 
hecho puede haber varios niveles de bucles. Las reglas que se aplican 
en la construcción de bucles sencillos se aplican también en la cons- 
trucción de bucles anidados, añadiendo las siguientes restricciones: 


a) 


b) 


c) 


d) 


Cada bucle anidado debe comenzar con su propia instrucción 
FOR TO y terminar con su propia instrucción NEXT. 


Un bucle externo y uno interno (anidado) no pueden tener la 
misma variable de ejecución. 


Cada bucle interno (aislado) debe quedar completamente 
embebido dentro del externo. 


Se puede transferir el control desde un bucle interno (anidado) 
a una sentencia de un bucle más externo o a otra sentencia 
fuera del grupo de bucles anidados; sin embargo, no se puede 
transferir el control a una sentencia dentro del grupo de bucles 
aislados desde otra que está fuera del grupo o desde un bucle 
más externo a uno más interno. 


Por ejemplo, la estructura siguiente sería incorrecta ya que 
los bucles se solapan. 


20 FOR X=0 TO 1 STEP 0.05 


50 FOR Y=0 TO 10 STEP 0.1 


713 NEXT XA 


100 NEXT 1 


Veamos un ejemplo de FOR ANIDADOS: 


10 LET J=5:K = 3 
20 FOR I= 1 7TOJ 
3O FOR N<=1TORK 
40 PRINT 1," *"; 
SO PRINT I¿"*R"¿Nj" = "¿I Kon 
60 NEXT N 
70 PRINT 
80 NEXT I 
Produciría la siguiente salida: 
l 1*] =]1 
Il 1*2=2 
| 1*3=3 
2  2*I=2 
2 2*1=4 
2 2*I=6 
S S*I=10 


5  5*I=15 


Cospd> 


4. BUCLES CON CONDICION NO NUMERICA 


Existen otros procesos repetitivos o bucles en los cuales su finali- 
zación no depende de una condición numérica. 

Supongamos que vayamos introduciendo valores numéricos al 
ordenador y que éste, cada vez que obtengamos uno, nos pida si 
deseamos continuar o no. 


Finalizaremos la entrada de datos cuando le contestemos negati- 
vamente. Nuestro objetivo será averiguar la cantidad de números 
introducidos y la media aritmética de dichos valores. La codificación 
del programa sería la siguiente: 


10 REM EJEMPLO DE BUCLE CON CONDICION NO NUMERICA 
20 REM LIMPIAMOS PANTALLA Y ESCRIBIMOS UNA CABECERA 
30 HOME 

40 VTAB 5: HTAB 5: PRINT "NOS DEVOLVERA LA MEDIA" 


290 


REM UTILIZAMOS UN BUCLE PARA SUBRAYAR 
VTAB 6: HTAB 5 
FOR 1 = 1 TO 22 
PRINT "-"; 
NEXT 

REM EL PRIMER PRINT ACABA LA LINEA Y EL SIGUIENTE 
REM DEJA UNA LINEA EN BLANCO 

PRINT : PRINT 

HTAB 5: PRINT " Y EL TOTAL DE NUMEROS" 

HTAB 62 PRINT "==========onnmo 

VTAB 12: HTAB 5: PRINT "DAME UN NUMERO "; 

REM EMPIEZA EL BUCLE 

INPUT " "¿NUM 

LET CZ% =C% +1 

LET SUM = SUM + NUM 

VTAB 14: HTAB 5: PRINT "PARA CONTINUAR (S) FIN 

(NN) Y; 

GET AS 

IF AS < > "S" ANDAS < > "N" THEN 222 

IF AS = "S" THEN VTAB 12: HTAB 20: PRINT 

"s: HTAB 20:|GOTO 170 

REM FINALIZA EL BUCLE 

REM SALIDA DE RESULTADOS 

VTAB 20: HTAB 5: PRINT "LA MEDIA ARITMETICA ES: "; 
suM / C% 

VTAB 22: HTAB 5: PRINT "EL TOTAL DE NUMEROS ES: "; 
Él 

END 


Una vez realizada la primera entrada y efectuado el proceso 
conveniente, contamos el número y lo acumulamos. Se nos pide si 
deseamos seguir introduciendo números, repitiéndose las instruccio- 
nes de entrada y proceso hasta que el operador pulsa la tecla “N”, que 
le sirve para la finalización del bucle o proceso repetitivo, dando paso 
a la obtención de resultados finales. 


Algunas ordenadores llevan incorporados dentro del LEN- 
GUAJE BASIC la instrucción WHILE WEND cuyo formato es el 
siguiente: 


WHILE condición 


WEND 
Entre las sentencias WHILE y la sentencia WEND existirán un 
conjunto de instrucciones que se repiten mientras que la condición, 
simple o compuesta, a continuación de la sentencia WHILE sea 
verdadera. 


Así, para imprimir los diez primeros números naturales, codifica- 
ríamos: 


10 1% = 1 

20 WHILE 1% < 11 
30 PRINT 19%; “ *: 
40 1%=1%+1 

50 WEND 


y en el caso expuesto en nuestro primer programa, codificaríamos: 


100 INPUT “NUMERO ”: NUM 

110 CONT% = CONTO, + 1 

120 SUM =SUM + NUM 

130 REM BUCLE PARA ELIMINAR RESPUESTAS NO CORRECTAS 


135 GET AS 
140 WHILE A$="" OR NOT (A$="S” OR B$="N” 
I5S0 GET AS 


160 WEND 

170 REM INICIO DEL BUCLE PRINCIPAL 

180 WHILE A$="S” 

190 INPUT “NUMERO ””; NUM 

200 CONTO = CONTO + 1 

210 SUM = SUM + SUM 

220 REM BUCLE PARA ELIMINAR RESPUESTAS NO CORRECTAS 
230 GET AS 

240 WHILE A$=" "OR NOT (A$="S” OR B$“N”) 

250 GET AS 

260 WEND 

270 REM FIN DEL BUCLE RESPUESTAS NO CORRECTAS 
280 WEND 

290 REM FIN DEL BUCLE PRINCIPAL 

300 REM SALIDA DE RESULTADOS 

310 PRINT* LA MEDIA ES IGUAL A ”: SUM/CONTQ0% 

320 PRINT* EL TOTAL DE NUMEROS ES ”; CONTQ0 

330 END 


En nuestro COSPA AULA-1] no disponemos de una sentencia 
tan potente como la instrucción WHILE WEND, que nos permite 
tanto el tratamiento de bucles con condiciones de finalización numé- 
ricas como el tratamiento de bucles con condiciones de finalización 
alfanumérica. Por lo cual, no tendremos más remedio que utilizar las 
sentencias IF THEN y GOTO para el tratamiento de bucles con 
condiciones de finalización del bucle alfanuméricas. 


od 
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PI) A continuación se muestran algunas estructuras de BUCLE 
FOR TO NEXT; identificar cuáles, si hay alguna, están escritas 
incorrectamente: 


a) 10 FOR K=K1 TO K2 
50 K=K+I 
90 NEXT K 


b) 10 FOR CI1=0 TO 50 STEP 5 
35 FOR C2=0 TO Cl 
, 65 NEXT C2 
100 NEXT Cl 


c) 10 FOR J=1 TO N 
40 FOR K=1 TO M 
70 NEXT J 
120 NEXT K 


d) 100 FOR X=0 TO 1 STEP .02 
150 FOR X=0 TO 5 STEP .05 
200 NEXT X 


e) 50 FOR P=1 TO 50 


80 FOR Q—2 TO 100 STEP 2 


P2) 


P3) 


P4) 


PS) 


100 IET =TI THEN 160 
120 NEXT Q 

160 PRINT “T=”:T 

200 NEXT C 


f) 75 FOR X=A TO (A+B) STEP C 
125 NEXT C 
Hacer un programa que nos cree una salida que pase los grados 
a radianes. 


a) Del primer cuadrante (0-909) tomando de $ en 5 grados. 


b) Del primer y segundo cuadrante (02—180%) tomando de 10 
en 10 grados. 


Calcular la media de edad de una población que va de l añoa 10 
años. Los datos son los siguientes, y los introduciremos por 
teclado: 

AÑOS i, 2,3, 4,5,6,7,8,9, 10 

PERSONAS 835, 902, 871, 790, 520, 625, 850, 300, 330, 950 

xl, Pi 


La media se calcula: MEDIA Xx = : 
2 Pi 


Hacer un programa tal que introducido un número entero nos 
calcule el factorial de dicho número. Sabiendo que el factorial 
de un número es: 


N! = 1.2.3 ... (N—-1).N 


Hacer un programa que nos dé una tabla de los factoriales de 
los diez primeros números naturales de la forma: 


NUMERO FACTORIAL 
| | 


2 2 
E 6 
10 


P6) Hacer una tabla de números del 1 al 300, que sean divisibles por 
2,3 y 5. Obteniendo los resultados en impresora de la siguiente 


forma: 
NUMERO DIVISIBLE POR 2 POR 3 POR 5 
l 
2 XxX 
3 X 
4 XxX 
6 X XxX 


P7) Hacer un programa que nos calcule la suma de los primeros 100 
números naturales. 


P8) Hacer un programa que nos vaya sumando todos los números 
que entremos hasta que introduzcamos un cero. 


P9) Realizar un programa que nos visualice la tabla de multiplicar 
de la siguiente forma: 


Oo ooo 


N =- O — 


2 


0 
2 
4 


18 


k 


0 
3 
6 


27 


TABLA DE MULTIPLICAR 


a 5 6 7 8 9 
0 0 0 0 0 0 
4 5 6 7 8 E 
8 10 12 14 16 18 


36 45 54 67 72 8l 


P10) Hacer un programa que nos vaya generando los números de 
FIBONACCI y nos busque cuál de ellos es PRIMO, de la 


siguiente forma: 


GENERACION DE FIBONACI y BUSQUEDA DE PRIMOS 


N=1 
N=2 
N=3 
N=4 
N=5 
N=6 
N=7 


Realizar el proceso hasta N=30. 


F=1 (PRIMO) 
F=1 (PRIMO) 
F=2 (PRIMO) 
F=3 (PRIMO) 
F=5 (PRIMO) 
F=8 

F=13 (PRIMO) 


P11) Realizar un programa tal que nos aparezca en pantalla. 


l 

1z 

FL 
etc. 


y así hasta un determinado valor N. 


No pasar la página hasta haber realizado los ejercicios planteados. 


Rl) a) 


b) 


c) 


d 


_—/ 


e) 
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La estructura es correcta ya que dentro del RANGO del 
FOR se puede modificar la variable. 


La estructura también es correcta, puesto que las dos sen- 
tencias FOR están perfectamente ANIDADAS y que Cl 
sea el tope, o último valor a tomar por la variable C2, es 
perfectamente correcto. 


La estructura es incorrecta ya que los dos no están perfec- 
tamente ANIDADOS al ser la sentencia NEXT J anterior a 
la sentencia NEXT K. Sería correcta de la siguiente forma: 


10 FOR J=1 TO N 
40 FOR K=1 TO M 
70 NEXT K 
120 NEXT J 


La estructura es incorrecta puesto que las dos sentencias 
FOR tienen la misma variable X. Sería correcta de la forma: 


100 FOR X=0 TO 1 STEP .02 
150 FOR Y=0 TO 5 STEP .05 
200 NEXT X, Y 


Es correcta ya que los dos BUCLES están perfectamente 
ANIDADOS y la bifurcación que existe va de un BUCLE 
más interno a un BUCLE más externo; no sería correcta si 
la bifurcación fuera de un BUCLE más externo a otro más 
interno. 


La estructura es incorrecta, la variable de la sentencia FOR 
es “X” y no “C”. Sería correcta de la forma: 


R2) a) 


R3) 


b) 


75 FOR X=A TO (A+B) STEP C 
125 NEXT X 


10 REM PASO DE GRADOS A RADIANES 


20 HOME 

30 VTAB 2: HTAB 10: FPRINT "FASO DE GRADOS A 
RADIANES" 

40 HTAD 105 PRINT -————___—____ == y 

SO PRINT 

60 FOR G = O TO 90 STEP 3 

70 LETR = 3.14159 x G / 180 

80 PRINT TAB( 15)6G TAB( 22)R 

90 NEXT G 

100 END 


10 REM PASO DE GRADOS A RADIANES 


20 HOME 

30 VTAB 2: HTAB 10: PRINT "PASO DE GRADOS A 
RADIANES" 

20 'HIBB 100 PRENT Mosa mcaipiccin acen ica id 

SO PRINT 

60 FOR G = O TO 180 STEP 10 

70 LETR = 3,14139 XxX G / 180 

80 PRINT TAB( 15)6 TAB( 22)R 

90 NEXT G 

100 END 


REM — PROGRAMA EDAD MEDIA DE UNA POBLACION 
HOME 

VTAB 10: HTAB 5: PRINT "AGNOS " 

VTAB 15: HTAB 5: PRINT "PERSONAS " 

FOR 1 = i TO 10 

VTAB 10: HTAB 11: PRINT I 


VTAB 15: HTAB 14: INPUT "";NUMZ 
LET SP = SF + NUMZ + I 
LET SUM = SUM + NUMZ 


R4) 


R5) 


100 FOR 1 = 1 TO 10 


110 REM INICIAMOS EL CAMPO FACT 
LET FACT = 1 


120 


VTAB 15: HTAB 13: PRINT " " 
NEXT 1 

REM — SALIDA DE RESULTADOS 

VTAB 20: HTAB 5 

PRINT "LA MEDIA DE EDAD ES "¡SP / SUM 
END 


REM — FACTORIAL 


HOME 
INPUT "INTRODUZCA UN NUMERO ENTERO"; NUMZ 
LET FACT = 1 


FOR 1 = 2 TO NUMZ 

LET FACT = FACT * 1 

NEXT I 

PRINT 

PRINT 

PRINT "EL FACTORIAL DE ";NUMZ;" ES ";FACT 
END 


REM — TABLA PARA FACTORIALES 

REM — ESCRIBIMOS LA CABECERA 

HOME 

VTAB 6: HTAB 10 

FRINT "NUMERO" TAB( 25) "FACTORIAL" 


PRINT 
REM — FINAL DE LA CABECERA 
REM — INICIAMOS UN BUCLE DE 1 A 10 


R6) 


REM — INICIAMOS UN BUCLE PARA CALCULART EL 
FACTORIAL 

FOR J = 1 TO I 

REM — OBSERVEMOS QUE J HA DE LLEGAR A I 
LET FACT = FACT x J 

NEXT J 

REM EN ESTE MOMENTO TENEMOS EL NUMERO I 
REM — Y SU FACTORIAL EN FACT 

PRINT — TAB( 13)1 TAB( 26) FACT 

NEXT I 

END 


REM — TABLA DE DIVISIELES POR IMPRESORA 

REM — ACTIVAMOS LA IMPRESORA 

PRA OS 

REM — ESCRIBIMOS LA CABECERA 
PRINT  SFC( 3) "NUMERO" SFC( 5) "DIVISIBLE POR 
2" SPC( S3"POR 3" SPCC( S)' "POR 5" 


PRINT SPC( 3)"------ SS 
-=" GPL NA "o SPO( 5) "oo " 

PRINT 

REM EMPEZAMOS EL BUCLE DE 1 A 300 


FOR 1 = 1 TO 300 


LET A$ ="" 
LET BS ="" 

LET $ ="" 

IF 1-2%X INT (1 / 2) = 0 THEN A$ = "x" 
IF 1-3 % INT (1/3) = 0 THEN B$ = "Xx" 
IF 1-5% INT (1 / 5) = 0 THEN CS = "x" 
PRINT — TAB( 6)1 TAB( 21)A$ TAB( 37)B$ TAB 
( 47)08 

NEXT 1 

REM FINALIZA EL BUCLE 

PRA 0: END 


R7) 


R8) 
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10 
20 
30 
40 
S0 


60 


10 
20 
30 
40 


30 
60 
70 


10 
20 
30 
40 
SO 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 


REM — SUMA DE LOS 100 PRIMEROS NUMEROS 
FOR 1 = 1 TO 100 
LETS =8+I1 
NEXT 1 
PRINT "LA SUMA DE LOS 100 PRIMEROS NUMEROS ES 
".5 á 
el 


REM — PROGRAMA SUMA DE NUMEROS HASTA 0 
PRINT "PARA FINALIZAR INTRODUCIR UN 0" 
INPUT "NUMERO ";NUM 

IF NUM = O THEN PRINT "LA SUMA ES "¡S: 
GOTO 70 

LET S = S + NUM 

GOTO 20 

END 


REM — TABLA DE MULTIPLICAR 
REM — ESCRIBIMOS CABECERA 
HOME 

VTAB 5: HTAB 10 

PRINT "TABLA DE MULTIPLICAR" 


REM ESCRIBIMOS SEGUNDA CABECERA 
PRINT  TAB( 8); 

FOR 1 =0 709 

PRINT 1; SPC( 2); 

NEXT 1 

PRINT 

PRINT 


REM — EMPEZAMOS EL PRIMER BUCLE 
FOR 1=0T0 9 
PRINT — TAB( 5)1; 


R10) 


190 
200 
210 
220 
230 
240 
250 


10 


20 
30 
40 
30 
60 
70 


80 

90 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 


REM EMPEZAMOS EL SEGUNDO BUCLE 
FOR J =0 7109 
PRINT SPC( 2)1 Xd; 
NEXT J 
PRINT 
NEXT 1 
END 
REM GENERACION DE NUMEROS DE FIBONACCI Y 
BUSQUEDA DE PRIMOS. 
PRINT "N= "; 
INPUT N 
PRE OS 
PRINT 
PRINT 
PRINT "GENERACION DE NUMEROS DE FIBONACCI Y 
BUSQUEDA DE PRIMOS" 
PRINT 
LET Fi =1 
LET F2 = 1 
PRINT "I = "31,"F = "¡13"(PRIMO)" 
PRINT "I = "32,"F = ":13"(PRIMO)" 
REM GENERAR NUMERO DE FIBONACCI 
FOR 1 = 3 TON 
LET F «e Fl + F2 
REM PRUEBA DE PRIMOS 
FOR J=2T0F-1 
LETO=F/J 
LET 01 = INT (0) 
IF O = 01 THEN 240 
NEXT J 
PRINT "1 = "¡1,"F = "Fi" (PRIMO)" 
GOTO 250 
PRINT "1 = "11,"F = ";F 
LET F2 = F1 E 
UET ELE 


R11) 


270 NEXT 1 


280 


PR 0: END 


REM — FANTALLA CON SUMAS 
HOME 

INPUT "CUANTAS SUMAS ";NZ 
REM — BUCLE MAS EXTERNO 
FOR 1 = 1 TO NZ 
PRINT 1; 

REM — BUCLE MAS INTERNO 
FOR Y = 2 TO 1 

PRINT " + "33; 

NEXT J 

REM — PRINT PARA FINALIZAR LA TAREA 
PRINT 

NEXT I 

END 
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CAPITULO 112 


FUNCIONES DE CADENA 
DE CARACTERES 


1. INTRODUCCION 


Ya sabemos que una expresión de caracteres puede ser simple- 
mente una constante o variable de caracteres (recordemos que las 
variables de caracteres terminaban con el carácter especial $), o puede 
combinar constantes y variables mediante operadores para producir 
un solo valor de caracteres. 


Los operadores de caracteres se utilizan para disponer cadenas de 


caracteres de formas diferentes. Los dos operadores con caracteres 
son: 


e La Concatenación 
e Las Funciones 


Recuerde que la comparación de tipo alfanumérico se efectuaba 
de diferente forma que la comparación de tipo numérico. Recuerde 
que se hacía de izquierda a derecha comparando carácter a carácter 
hasta encontrar un carácter diferente, o haber comparado la totalidad 
de los caracteres. Así las siguientes condiciones que exponemos a 
continuación serían VERDADERAS. 

“AA”<“AB” 
“FILENAME”=“FILENAME” 
“XB” >“XA” 

“WR ">“WR” 
“JUAN”<“JUANJO” 

B$ < “718” siendo B$ = “12543” 

Todas las constantes utilizadas en expresiones de comparación 
han de ser constantes alfanuméricas, es decir deberán ponerse entre 
comillas. 


2. CONCATENACION 


A la unión de constantes y variables alfanuméricas se la denomina 
CONCATENACION. Las cadenas se concatenan utilizando el sím- 
bolo (+). 


Por ejemplo: 


10 LET A$ = "MARIA" 
20 LETEB6=>* > 
30 LET C$ = "LUISA" 


40 FRINT A$ + B$ + C5$ 


RUN 
MARIA LUISA 


3, FUNCIONES 


Las funciones alfanuméricas, incorporadas en el BASIC del 
COSPA AULA-I, nos van a permitir cualquier tratamiento que 
deseemos hacer con las variables y constantes alfanuméricas. Veamos 
con detalles cada una de ellas. 


ASC 
Formato: V=ASC (expresión de caracteres) 


La función ASC nos devuelve el valor, en base 10, del código 
ASCII correspondiente al primer carácter de la cadena de caracteres 
de la expresión. 


Sabemos que el código ASCII tiene la posibilidad de representar 
256 caracteres entre letras, números, caracteres especiales y caracteres 
de control. Estos caracteres estarán numerados, en base 10, desde el 
valor 0 al valor 255. 


Si la expresión alfanumérica es nula (“ ”), es decir no contiene 
ningún carácter, se producirá un error. 


Ejemplo: 


10 LET X$ = "TEXTO" 
20 PRINT ASC (X$) 


Podríamos también haber averiguado si X$ empezaba por “T” 
codificando la instrucción IF THEN de la siguiente forma: 


IF ASC (X$) = 84 THEN... 


CHR$ 
Formato: Variable alfanumérica=CHRS$ (expresión numérica) 


Nos convierte un código ASCII en un carácter equivalente. La 
expresión numérica debe de pertenecer al rango de 0 a 255. 


La función CHR$ nos devuelve un carácter con el código ASCII 
de valor, en base 10, de la expresión numérica. 


Ejemplo: 


PRINT CHRS (48) 
0 
PRINT CHRS (34) 


PRINT CHRS (65) 
A 
PRINT CHRS (72) 
H 


La función ASC que vimos anteriormente nos podrá realizar la 
función inversa. 


Ejemplo: 


PRINT ASC (“0”) 

48 

PRINT ASC (“A”) 
65 

PRINT ASC (“H”) 
pe 


Veamos un programa que nos muestra todos los caracteres que se 
puedan visualizar dentro del código ASCII. 


LEFTS 


HOME 

FOR 1 =0 TO 255 
PRINT  CHR$ (1)7" "; 
NEXT 1 


Formato: Variable alfanumérica=LEFTS (expresión 
alfanumérica,n) 


Nos retorna los n primeros caracteres de la expresión alfanumé- 
rica, empezando por la izquierda. 


n es una expresión numérica perteneciente al rango de O a 255, 
Especifica el número de caracteres que tendrá el resultado. 


Sines mayor o igual que la longitud (en número de caracteres) de 
la expresión alfanumérica nos devolverá la expresión alfanumérica 


completa. 


Ejemplos: 


10 LET A$ = "DOLORES" 
20 PRINT LEFTS (A$,5) 


RUN 
DOLOR 


10 LET A$ = "DOLORES" 
20 PRINT LEFTS (A$,8) 


RUN 
DOLORES 


Si n es igual a cero nos devolverá el mensaje de error 


? ILLEGAL QUANTITY ERROR 


10 LET B$ = "FALMA" 
20 PRINT LEFTS$ (E$,0) 


RUN 


Veamos otro ejemplo más. 


10 LET A$ = "PROGRAMA EN BASIC" 
20 LETB$ = LEFTS (A$,8) 

30  FPRINT B$ 

RUN 

PROGRAMA 


En este ejemplo B$ toma los ochos primeros caracteres de la 
variable AS. 


MIDS 
Formato: Variable alfanumérica: MIDS (expresión 


alfanumérica,n[,m] 


Nos devuelve la parte requerida de una expresión alfanumérica de 
caracteres dada. 

n será una expresión entera perteneciente al rango de l a 255. 

m será una expresión entera perteneciente al rango de 0 a 255. 

La función devuelve una expresión alfanumérica de m caracteres 
de longitud tomada de la expresión alfanumérica existente en el 
formato comenzando desde el n-simo carácter. 


Ejemplo: 


10 REM VAMOS A TOMAR EL CARACTER 

20 REM DE A$ QUE ESTA EN QUINTO LUGAR 
30 LET A$ = "ESTOY OCUPADO" 

40 PRINT MID$ (A$,5,1) 

SO END 


Si omitimos mm, o si hay menos caracteres que m a la derecha del 
carácter n-simo, se retornarán los caracteres más a la derecha comen- 


zando con el carácter n-simo. 


Ejemplo: 


10 LET A$ = "HASTA EL FINAL" 


20 LET 1 =7 
30 PRINT MID$ (A$,10,1) 
40 END 


RUN 


FINAL 


El resultado hubiera sido el mismo si hubiésemos codificado la 
instrucción de la línea 30 de la forma: 
30 PRINT MIDS (AS, 10) 
S1 mes igual a cero, o si nes mayor que la longitud (en número de 
caracteres) de la expresión alfanumérica MID$, devuelve la expresión 


alflanumérica vacía. 
Veamos un ejemplo: 
10 LET A$ = "NO NOS DEVOLVERA NADA 


20 PRINT MID$ (A$,4,1) 
30 END 


RUN 


No nos devuelve nada. Esto es debido a que la variable numérica 
I valdrá cero ya que anteriormente no le asignó ningún valor. 


El resultado hubiera sido el mismo con las siguientes modificacio- 


nes de la línea 20: 
20 PRINT MIDS (AS, 22, 1) 
20 PRINT MIDS (AS, 22) 


20 PRINT MIDS (AS, 1, 0) 
20 PRINT MIDS (AS, 30, 2) 
etc. 


Observemos que siempre que el valor de »sea 1, la función MIDS 
nos devuelve la misma expresión alfanumérica que si utilizásemos la 
función LEFTS. 


Ejemplo: 


10 LET A$ = "DESDE LA IZQUIERDA" 
20 PRINT LEFTS (A$,5) 

30 PRINT MID$ (A$,1,5) 

40 END 


RUN 
DESDE 
DESDE 


de donde deducimos que la función MIDS es capaz de hacer todas las 
operaciones que haga LEFTS o, lo que es lo mismo, devolver los 
mismos resultados que LEFTS. Lo cual no ocurre a la inversa; es 
decir, la función LEFTS$ no es capaz de hacer todo lo que hace la 
función MIDS. 


Más adelante, y dentro de este capítulo, estudiaremos RIGHTS y 
veremos también como la función MID$ puede suplirla. 


LEN 
Formato: V = LEN (expresión alfanumérica) 


Nos devuelve la longitud (en número de caracteres) de la expre- 
sión alfanumérica. 


Hemos de tener en cuenta que en el recuento del número de 
caracteres también se incluyen los caracteres no imprimibles, como 
por ejemplo el carácter ASCII que nos produce un zumbido (BEEP) y 
los caracteres espacios en blanco ya que todos ellos son caracteres que 
pueden ir dentro de una expresión alfanumérica. 


Asi: 
10 LET B$ = "CRISTOBAL" 
20 PRINT LEN (B$) 
3O END 


10 LET A$ = "UNO" 


20 LET BES ="+" 
30 PRINT LEN (A$ + B$ + "DOS") 
40 END 

RUN 

9 


10 LET C$ = "CON UN ESPACIO FINAL " 
20 PRINT LEN (C$) 
30 END 


RIGHTS 
Formato: Variable alfanumérica=RIGHTS (expresión 


alfanumérica,n) 


Retorna los n caracteres de la expresión alfanumérica que están 
más a la derecha. n será una expresión numérica entera que especifica 
el número de caracteres que tiene que haber en el resultado. 


Ejemplo: 


10 LET A$ = "BUENOS AIRES, ARGENTINA" 
20 PRINT RIGHTS (A$,9) 
30 END 


RUN 
ARGENT INA 


Si nes mayor o igual que la longitud, en número de caracteres, de 
la expresión alfanumérica, RIGHTS devuelve la totalidad de la 


expresión alfanumérica. 


10 LET A$ = "BUENOS AIRES, ARGENTINA" 
20 PRINT RIGHTS (A$,25) 
30 END 


RUN 
BUENOS AIRES, ARGENTINA 


Si n es cero se produce un mensaje de error. 
Como decíamos, la función MIDS podría también sustituir a la 
función RIGHTS. 


Veamos un ejemplo. Cuando hicimos: 


10 LET A$ = "BUENOS AIRES, ARGENTINA" 
20 PRINT RIGHTS (A$, 9) 
30 END 


RUN 
ARGENTINA 


Esos nueve caracteres también los tendremos que tomar con la 
función MIDS, luego podríamos poner: 


MIDS (AS.,?,9) 


Lo que no sabemos es la posición de comienzo, pero con ayuda de 
la función LEN (A$) que nos devuelve el número de caracteres en A$, 
tendríamos el problema resuelto; la posición de comienzo sería: 


LEN (AS) — 9= 1 
o lo que es lo mismo: 
LEN (AS) — 8 
Luego podríamos haber escrito: 
10 LET A$ = "BUENOS AIRES, ARGENTINA" 


20 PRINT MID$ (A$, LEN (A$) - 8,9) 
3O END 


RUN 
ARGENTINA 


con lo que el resultado sería el mismo. 


Notar que LEN (A$) — 8 también es una expresión numérica. 


VAL 
Formato: Variable numérica=VAL (expresión alfanumérica) 


Retorna el valor numérico de una expresión alfanumérica. 
La función VAL quita los espacios en blanco y caracteres de 
control de la expresión alfanumérica para determinar el resultado. 


PRINT VAL (*—-3”) 
—3 
Si el primer carácter de la expresión alfanumérica no es numérico, 
la función VAL nos retorna un cero: 
PRINT VAL (“LUIS 14”) 
0 
Veamos un ejemplo más: 
PRINT VAL (“3408 CORDOBA”) 
3408 
Este ejemplo nos podría servir para extraer el número de portal de 
una dirección. 


STRS 
Formato: Variable alfanumérica=STRS$ (expresión numérica) 


Nos retorna una constante alfanumérica que representa el valor 
de la expresión numérica. 
La función STR$ es complementaria de la función VAL: 


PRINT STRS (321) 
321 

PRINT VAL 3S2PPF2 
642 


Pero no sería correcto escribir: 


PRINT STRS (321)*2 


ya que lo que nos devuelve STR$ es el literal “321” que nunca se 
podría multiplicar por 2. 


El ordenador, por lo tanto, nos daría error. 


Pl) 
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Averiguar qué visualizaría el siguiente programa: 


10 FOR 1 = 17053 

20 LET A$ = "A" 

30 PRINT  TAB( 1)A% 

40 LETAS = AS +" "+ "A" 
SÓ NEXT 1 


Visualizar el siguiente dibujo utilizando la CONCATENA- 
CION. 


Introduciendo por teclado un string de caracteres, realizar un 
programa que nos devuelva la cantidad de espacios en blanco 
existentes en el string. 


Hacer un programa mediante la instrucción GET un número de 
cuatro dígitos, comprobando que sólo son válidos del 0 al 9. 
Una vez introducidos los cuatro dígitos queremos que estos 


P5) 


P6) 


P7) 


P8) 


P9) 


sean operables. Cada dígito válido ha de ser visualizado en 
pantalla. 


Hacer un programa tal que entrada una palabra nos diga 
cuántas veces se repite la letra “A” y qué longitud tiene dicha 
palabra. 


Hacer un programa que introduciendo tres palabras nos las 
visualice ordenadas alfabéticamente. 


Hacer el plural de las palabras francesas que acaben en “ou”, 
que se hará añadiéndoles un S, excepto para una serie de 
palabras que lo hacen añadiendo una “X”. Dichas palabras son 
bijou, caillou, chou, genou, hibou, joujou y pou. 


Introduciendo el nombre y dos apellidos, hacer un programa 
que nos visualice primero los apellidos y después el nombre, 
separados por una coma: 


FELIPE GONZALEZ MARQUEZ (entrada) 
GONZALEZ MARQUEZ, FELIPE 


Hacer un programa tal que introducida una palabra nos la 
visualice tal como la hemos introducido e invertida. Por ejem- 
plo: 


PALABRA 
ARBALAP 


No pasar la página hasta haber realizado los ejercicios planteados. 
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A A A 


A AA A 
A AA AA 


Fijáos que el número de letras A crece de 1 hasta 5 y que además 
la posición de tabulación va incrementándose cada vez en uno. 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 


90 
100 


REM — PROGRAMA DIBUJO 


HOME 

VTAB 9: HTAB 20 
LET AS = ".* 
PRINT As 

LET C% = 20 


FOR 1 = 1 TO 4 
LET CZ = CZ - 1 


LET AS =As54+ "oo o 
PRINT— TAB( C/IAS 
NEXT 1 
END 


REM — NUMERO DE BLANCOS 
INPUT "DAME UN STRING "¡LINEAS$ 
LET NZ = LEN (LINEAS$) 
REM VAMOS COMPROBANDO CARACTER A CARACTER 
REM HASTA EL TOTAL DE CARACTERES N% 
FOR 1 = 1 TO Nz 
IF | MID$ (LINEAS$, 1,1) = " " THEN CZ% = CZ% + 1 
NEXT I 
REM — SALIDA DE RESULTADOS 
PRINT "EL NUMERO TOTAL DE ESPACIOS ES ";C% 


120 END 


RS) 10 


REM ENTRADA DE UN NUMERO COMO ALFANUMERICO 
REM — Y PASO A NUMERICO 

HOME 

VTAB 3: PRINT "DAME UN NUMERO DE CUATRO DIGITOS" 
GET A$: IF A$ = "" THEN GOTO 50 

IF AS < "0" OR A$ > "9" THEN GOTO 50 
PRINT A$ 

LET B$ = B$ + A$ 
LET CZ = CZ + 1 

REM — HASTA AHORA HEMOS ENTRADO UN DIGITO 
REM Y LO HEMOS VALIDADO; VISUALIZADO, CONTADO 
Y GUARDADO 

REM AHORA COMPROBAREMOS SI HEMOS 

REM  ENTRADO CUATRO DIGITOS VALIDOS 

IF C% < 4 THEN 50 

REM UNA VEZ ENTRADOS LOS 4 PASAMOS B$ A 
NUMERICO 

LETB= VAL (B$) 

PRINT 

PRINT B, "MULTIPLICADO POR DOS";¡B k 2 

END 


REM CUANTAS "A" 

INPUT "PALABRA ";¡P$ 

LET L% = LEN (P$) 

FOR 1 = 1 TO L% 

IF. MID$ (F$,1,1) = "A" THEN C% = C% + 1 
NEXT I 

PRINT "LA LONGITUD DE LA PALABRA ES ";¡L% 
PRINT "EL NUMERO DE A ES ";C% 

END 


REM — PROGRAMA ORDENACION 
FPRINT "DAME TRES FALABRAS " 


INPUT "PRIMERA PALABRA ";¡A$ 
INPUT "SEGUNDA PALABRA ";B$ 
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INFUT "TERCERA PALABRA ";C$ 


IF A$ > B$ THEN D$ = A$:A$ = B$:B$ = D$ 
IF A$ > C$ THEN D$ = A$:A$ = C$:C$ = AS 
IF B$ > C$ THEN D$ = B$:B$ = C$:C0$ = D$ 


REM FINALIZADA LA ORDENACION DISPLAYAMOS 
PRINT "ORDENADAS DE MENOR A MAYOR " 

PRINT A$;" "¡B$;" "¡CS;" " 

END 


REM — PLURAL PALABRAS FRANCESAS 

HOME : PRINT "ACABADA EN OU " 

INPUT "INTRODUCIR UNA PALABRA FRANCESA ";¡P$ 
IF. RIGHTS (P$,2) < > "0U" THEN 15 

IF P$ = "BIJOU" THEN P$ = P$ + "X": GOTO 120 


IF PS "CAILLOU" THEN P$ = F$ + "X": GOTO 120 
IF P$ = "CHOU" THEN P$ = P$ + "X": GOTO 120 

IF P$ = "GENOU" THEN P$ = P$ + "X": GOTO 120 
IF P$ = "JOUJOU" THEN P$ = P$ + "X": GOTO 120 
IF P$ = "HIBOU" THEN P$ = P$ + "X": GOTO 120 


IF P$ = "POU" THEN P$ = P$ + "X": GOTO 120 
LET PS = PS + "Ss" 

PRINT "SU PLURAL ES " SPC( 3)FPS 

END 


REM — APELLIDOS Y NOMBRE 

INPUT "NOMBRE Y APELLIDOS ";¡NA$ 
LET L = LEN (NA$) 

FOR 1 = 1 TOL 


IF | MID$ (NA$,1,1) = " " THEN NA$ = RIGHTS 
(NA$,L - 1) 

IF — MID$ (NA$,1,1) = " " THEN 70 

NEXT I 

FOR 1 = 1 TO LEN (NA$) 

IF. MID$ (NA$, 1,1) = " " THEN NO$ = 


LEFTS (NA$,1):X = I: GOTO 100 
NEXT I 
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100 
110 


120 
130 
160 
170 


10 
20 
SO 
40 
SO 
60 
70 
80 
90 


FOR J = X + 1 TO LEN (NA$) 


IF.  MID$ (NA$,J,1) = " " THEN A1$ = MID$ 
(NA$,X + 1, - X - 1): Y = J1 GOTO 130 
NEXT J 


LET A2%$ = MID$ (NA$,Y + 1, LEN (NA$) - Y) 
PRINT A1$;" "¡A2$;", ";NO$ 
END 


REM — INVIERTE PALABRA 

INPUT " PALABRA "¡PAL$ 

LET L% = LEN (PAL$) 

FOR 1 = L% TO 1 STEP - 1 

LET NPAL$ = NPAL$ + MID$* (PAL$, 1,1) 
NEXT I 

PRINT "LA PALABRA ES "¡PAL$ 

PRINT "LA PALABRA INVERTIDA ES "¡NPAL$ 
END 
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CAPITULO 122 
VECTORES Y TABLAS 


1. INTRODUCCION 


Imaginémonos que tenemos que realizar los dos siguientes pro- 
gramas: 
a) Hacer un programa que introduciendo la fecha de la forma 
20/06/85 nos la visualice de la forma: 
20 DE JUNIO DE 1985 


b) Hacer un programa que ncs dé la nota media obtenida por los 
treinta alumnos de una clase, visualizando cada una de las 
notas junto a la media. 


Tal y como vemos en los ejercicios a) y b) hay cuestiones que son 
muy incómodas (a veces impensables) de tratar con el uso de las 
variables que hemos visto hasta ahora. 


En el primer caso necesitamos utilizar 12 variables para guardar 
los meses del año o bien, pensar algún otro recurso para la resolución 
del problema. 


En el segundo caso, el problema que se nos plantea es que, cuando 
dispongamos del valor de la media ya no tendremos los datos inicia- 
les. Se puede proceder a una nueva lectura de los datos para poder 
hacer las comparaciones de la nota de cada alumno con la media de la 
clase; pero esta solución es muy engorrosa. Así se plantea la necesidad 
de guardar simultáneamente todos los datos para poder hacer, una 
vez encontrada la media, las comparaciones pertinentes. 


Consideremos otro caso práctico. Supongamos que queremos 
guardar en la memoria del ordenador el precio de 200 artículos de una 
tienda. Una vez más, hacerlo utilizando las variables que conocemos 
será muy molesto. En los tres casos se puede pensar en utilizar una 
variable por dato; o bien, si es posible, en una donde se puedan 
guardar todos los datos. 


2. VECTORES Y MATRICES. ARRAYS. 


2.1. Vectores 


El lenguaje BASIC admite la existencia de un tipo de variables 
que tienen un nombre UNICO (por ejemplo M$, X y P para los 
problemas que hemos comentado en la introducción) seguidos de un 


número entre paréntesis M$ (12), X (30), P (200), donde podemos 
guardar muchos datos. 


A estos tipos de variables les llamaremos VECTORES. 

El uso de los VECTORES resulta indicado para guardar simultá- 
neamente un gran número de datos de índole similar, es decir, con 
información referente a un mismo concepto. 

Un VECTOR será pues un conjunto de variables con el MISMO 
NOMBRE que nada más se diferencian unas de otras por un 
NUMERO DE ORDEN denominado SUBINDICE, que nos indi- 
cará un dato en particular, de todo el conjunto de datos que guardar el 
VECTOR al cual nos referimos. 

Si en M$ (12) hemos guardado los nombres de los meses: 


MS$ (1) contendría ENERO 
MS$ (2) contendría FEBRERO 
M$ (3) contendría MARZO 


MS$ (12) contendría DICIEMBRE 


Si en X (30) hemos guardado las notas de los alumnos. 


X (1) podría contener un 6 
X (2) podría contener un 3 


X (30) podría contener un 8 


Para podernos referir a un determinado elemento de un vector 
utilizaremos el NOMBRE DEL VECTOR seguido entre paréntesis 
del SUBINDICE del elemento al cual nos queremos referir. 


Este subíndice nos indica el lugar que este elemento ocupa dentro 
del VECTOR. Así MS (4) representa el cuarto dato de los doce que 
puede guardar el vector M$ (12). Es decir, ABRIL. Igualmente X (1) 
representa la primera nota de las 30 notas que pueden guardar el 
vector X (30). Es decir, el valor 6. 

El SUBINDICE no tiene por qué ser necesariamente una cons- 
tante. Puede ser: 

a) Una CONSTANTE P(15) 

b) Una VARIABLE X(N) 

c) Una VARIABLE IDEXADA A(B(2)) 

d) Cualquier EXPRESION NUMERICA M$(5+1) 


NOTAS: 


a) Siempre que el SUBINDICE no sea un VALOR ENTERO, el 
ordenador lo trunca. Así X(2.73) será considerado como X(2). 


b) Siel SUBINDICE es menor que 0, o mavor que el número de 
elementos del vector, se producirá error. 


Así, si quisiéramos trabajar con M$(20) d X(35) nos daría 
error. 


2.2. Matrices 


Supongamos otro problema: Queremos guardar el nombre y el 
teléfono de 20 amigos. Esto se podría resolver utilizando DOS VEC- 


TORES, uno para los NOMBRES N$(20) y otro para los TELEFO- 
NOS TS$(Q20), ambos de 20 elementos. 


Pero también lo podremos resolver con un tipo de variable deno- 
minada MATRIZ, semejante a un VECTOR, pero con DOS o MAS 
SUBINDICES. 


Así la MATRIZ NTS(20,2) nos podría guardar el nombre y los 
teléfonos de nuestros 20 amigos. 


El PRIMER SUBINDICE nos indica cuál de los 20 amigos 
tratamos y, el SEGUNDO SUBINDICE, nos indicaría su teléfono. 


Veamos otro ejemplo: Imaginémonos que una empresa dedicada 
a la venta de artículos dispone de 10 SUCURSALES disponiendo 
cada una de ella de 10 VENDEDORES. En un momento dado nos 
puede interesar procesar las ventas realizadas por cada VENDEDOR 
dentro de una determinada SUCURSAL, o saber el total de las 
ventas realizadas en CADA UNA de las SUCURSALES, o saber el 
TOTAL de las VENTAS de la empresa. 


Podríamos crearnos una variable SV(10,10), donde el PRIMER 
SUBINDICE nos indicase en qué SUCURSAL estamos y el 
SEGUNDO SUBINDICE qué vendedor es el que ha realizado dichas 
ventas en esa SUCURSAL. 


Así SV(1,1) nos daría información sobre las ventas realizadas por 
el VENDEDOR l en la SUCURSAL 1; SV(1,2) nos daría informa- 
ción sobre las ventas realizadas por el VENDEDOR 2 en la SUCUR- 
SAL 1l, etc. 


Estos tipos de variables (VECTORES y MATRICES) reciben el 
nombre genérico de ARRAYS. 


3. DIMENSIONAMIENTO DE VECTORES 
MATRICES 


Antes de utilizar, en un programa, un VECTOR o una MATRIZ 
hemos de DIMENSIONARLOS. Esto quiere decir que hemos de 
indicar cuántos datos individuales podremos guardar. Por ejemplo, 
volviendo a los problemas del apartado anterior, en el primer caso 
tendremos que reservar 12 elementos para los nombres de los meses; 
en el segundo, 30 elementos para las notas; en el tercero, 200 elemen- 
tos para los precios; en el cuarto, 40 elementos para los nombres y 20 
para los teléfonos, y en el quinto, 100 elementos. 


A esta RESERVA de ESPACIO en memoria se le llama DI- 
MENSIONAR un ARRAY, y se hace con la instrucción DIM. 


3.1. Sentencia DIM 


Formato: DIM variable (subíndice) [,variable (subíndice)...] 


Especifica los valores, máximos para los subíndices de variables 
matriciales y asigna la memoria de acuerdo con esto. 


Variable es el nombre que se va a usar para el ARRAY. 


Subíndice es un listado de expresiones numéricas separadas por 
comas, que definen las DIMENSIONES de un ARRAY. 


Ejemplo: 
DIM A(10), B$5(20,2), C(200 
y para los ejemplos expuestos anteriormente: 
DIM MS(12), X(30), P(200), NTS(20,2), SV(10,10) 


Cuando se ejecuta, la sentencia DIM carga todos los elementos de 
los arrays numéricos especificados con un valor inicial CERO. 


Los elementos de un array de caracteres, M$(12), son de LONGI- 
TUD VARIABLE, con un valor inicial de la CONSTANTE ALFA- 
NUMERICA VACIO (longitud 0). 


Si se utiliza en un programa un nombre de variable indexada 
(array), el número máximo de un SUBINDICE será de 10. 


El valor mínimo para un SUBINDICE es siempre o, y el valor 
MAXIMO puede llegar hasta 273. 


Siempre que se utilice un SUBINDICE mayor que el máximo 
aparecerá un error: 


? BAD SUBSCRIPT ERROR 


El número de dimensiones de un ARRAY se limita por la canti- 
dad de memoria disponible, pudiendo llegar hasta 88 SUBINDICES. 
Una sentencia DIM con 89 o más SUBINDICES nos dará un error: 


? OUT OF MEMORY ERROR 


Un ARRAY nunca se puede dimensionar dos veces, aunque se 
haya dimensionado por defecto. 


Si se trata de dimensionar un ARRAY que ya ha sido dimensio- 
nado se obtendrá el mensaje: 


? REDIM'D ARRAY ERROR 


3.2. Sentencia OPTION BASE 
Formato: OPTION BASE n 


Declara el valor mínimo para subindicar el ARRAY (n tomará el 
valor 1 o el valor 0). 

La base elegida, por omisión de la sentencia OPTION BASE, es0; 
si la sentencia OPTION BASE 1 se ejecuta, el valor más bajo que 
puede tener un SUBINDICE del ARRAY es 1. 


La sentencia OPTION BASE debe codificarse ANTES de 
DEFINIR o UTILIZAR un ARRAY. 


Así, para los ejemplos expuestos codificaríamos: 


10 OPTION BASE 1 
20 DIM M(12) 


10 OPTION BASE 1: DIM X(30) 


10 OPTION BASE 1 


20 P (200) 


10 OPTION BASE 1 
20 DIM NTS (20,2) 


10 OPTION BASE 1 
20 DIM SU (10,10) 


si consideramos que solamente vamos a utilizar un ARRAY dentro 
de cada uno de los programas. 


Si lo hubiéramos codificado sin OPTION BASE l, existirían los 
elementos M$(0), P(0), NTS(0,0), SU(O,) como primeros elementos de 
los ARRAY dentro de cada uno y, realmente, tendríamos más ele- 
mentos dentro de las ARRAY que los pretendíamos tener. Así, por 
ejemplo: 


M$(12) estaría constituido por: 
MS$(0), MS(1), M$(2), MS(3) ... M$(12) 


Con lo que no tendríamos un total de 12, sino un total de 13, y 
SV(10,10) no tendría 100 elementos SV (1,1), SV(1,2), SV(1,3)... 
SV(10,10) sino 10 más. 


SV (0,0), SV(0,1), SV(0,2)... SV(0,9) 


Es conveniente codificar siempre la sentencia OPTION BASE 1l 
ya que, por costumbre, siempre empezamos las cuentas por el | y no 
por el 0; de esta forma no daremos lugar a CIERTOS ERRORES, 
más tade a la hora de programar. 


NOTA: 


Esta sentencia no está disponible en nuestro sistema. Por ello, 
siempre que la utilicemos obtendremos un mensaje de error. La 
explicamos para tenerla en cuenta en aquellos ordenadores en los que 
su sistema sí la contemple. 


4. OPERACIONES CON VECTORES Y MATRICES 


Ya sabemos dimensionar un VECTOR o una MATRIZ, utili- 
zando, antes de dimensionar, la sentencia OPTION BASE 1. 


Realizaremos a continuación una serie de ejercicios donde 
expondremos los tratamientos más generales o básicos con los 
VECTORES y MATRICES. 


4.1. Entrada y salida de datos 


4.1.1. Entrada de datos a un véctor o a una matriz 
a) Con un INPUT y trabajando con un número determinado de 


datos. 


10 DIM X(30) 

20 FOR I = 1 TO 30 
30 INPUT "NOTA "3 X(I) 
40 NEXT I 

30 END 


Cada una de las notas entradas se irán asignando a X(1), X(2)... 
Xx(30). 


b) Con un INPUT y si el número de los datos es variable. 


10 INPUT "CUANTOS DATOS ";NZz 
20 DIM X(N7%) 

3O FOR I = 1 TO Nz 

40 INPUT "NOTA ";X(1) 

30 NEXT I 

60 END 


Con la sentencia READ DATA cuando los datos son conocidos. 


READ 
Formato: READ variable [,variable]... 


Lee los valores de una sentencia DATA y los asigna a las variables. 


VARIABLE: es una variable numérica o una variable alfanumé- 
rica o un elemento de un ARRAY que tiene que recibir el valor leído 
de la sentencia DATA. 

Una sentencia READ debe usarse siempre en combinación con 
una sentencia DATA. 

Las sentencias READ asignan los valores de las sentencias DATA 
a las variables de las sentencias READ, uno a uno. Las variables de la 
sentencia READ pueden ser numéricas o de caracteres, y los valores 
leidos DEBE SER ACORDES con los tipos de variable especifica- 
visualizándose también el número de línea de la sentencia: 


? SYNTAX ERROR 


visualizándose también el número de línea de la sentencia DATA, 
culpable de dicho error. 


Una UNICA sentencia READ puede acceder a una o más senten- 
cias DATA (se accederá a ellas en orden). 


10 DIM A(S) 

20 READ A(1),A4(2),A(3),A4(4),A(3) 
30 DATA 27.5,18 

40 DATA 3,3.5,270 

0 FOR I = 1 TO 5 

60 PRINT A(I)¿" "; 

70 NEXT I 

80 END 


RUN 
27.5 18 3 3.5 270 


Varias sentencias READ pueden acceder a la misma sentencia 
DATA. 


10 DIM M$(12) 
20 DATA "ENERO", "FEBRERO", "MARZO", "ABRIL", "MAYO", 


"JUNIO", "JULIO", "AGOSTO", "SEPTIEMBRE", "OCTUBRE", 
"NOVIEMBRE", "DICIEMBRE" 

30 FOR 1 = 1 TO 12 

40 READ M$(1) 


SO NEXT 1 

560 PRINT M$(1),M$(6),M$(12) 

70 END 

RUN 

ENERO JUNIO DICIEMBRE 


Si el número de variables, en la lista de variables de una sentencia 


READ, excede el número de elementos en la sentencia DATA se 
producirá el error: 


? OUT OF DATA ERROR 


con el número de línea de la sentencia READ causante. 


10 REM EJEMPLO 
20 DATA 1,2,3 
3O FOR 1=1T0S5S 
40 READ NUM% (1) 


350 NEXT I 
60 END 
RUN 


? OUT OF DATA ERROR 


DATA 
Formato: DATA constante [,constante|]... 


Almacena constantes numéricas y alfanuméricas, a las que se 
accede mediante la sentencia READ del programa. 


DATA 1, 2, DATOS, “DATOS, Y UNA COMA”, 7.3 


Las sentencias DATA pueden aparecer en cualquier parte de un 
programa; no necesitan ejecutarse para que se acceda a ellas por un 
comando READ. 


La sentencia DATA puede especificar valores numéricos. 


Las constantes alfanuméricas se pueden encerrar entre comillas, 
pero no es necesario, ya que van dentro de la sentencia DATA (es en el 
único sitio del programa donde una constante alfanumérica puede ir 
sin comillas), a menos que la constante alfanumérica contenga espa- 
cios en blanco, comas o puntos y comas, siendo obligatorio entonces 


el uso de las comillas. 


Un signo de comillas no se puede representar dentro de una 
constante. Si es necesario utilizarlo habrá que hacerlo mediante 
la función. CHR$(34). 


Ejemplo: 
DATA TITULO, “ESPACIOS Y , “+” CHR$(34) + “ENTRE COMILLAS” + 
CHR$(23)” 


Uno de los parámetros de constantes puede ser nulo, asignándose 
como cero a una variable numérica, y como constante alfanumérica 
nula (* ”) si se asigna a una variable alfanumérica. 


10 DATA Il, 4.3,, OSCAR 
20 READ AJ%, B, C, TS, S$ 
30 END 


Las variables toman los siguientes valores: 


A% = 1 
B=0 
C = 43 
TS =+> 


S$ = “OSCAR” 


RESTORE 


Formato: RESTORE 


Restaura el puntero de las listas DATA al principio de las listas. 
Las sentencias READ posteriores comienzan en el primer valor de la 
sentencia DATA. 


Ejemplo: 


10 DATA "ANA",3,77,"JOSE" 

20 READ A$,B,C,B5$ 

3O PRINT AS" "3B3" "5C3" ":BS 
40 RESTORE 

SO READ B$,A 

60 PRINT B$;" "¡A 

70 END 


RUN 
3 77 JOSE 
ANA 3 


c) Con un READ/DATA y un número determinado de datos: 


DIM M$(12) 

FOR 1 = 1 TO 12 

READ M$(1) 

NEXT I 

DATA ENERO, FEBRERO, MARZO, ABRIL, MAYO 
DATA JUNIO, JULIO, AGOSTO, SEPTIEMBRE 
DATA OCTUBRE, NOVIEMBRE, DICIEMBRE 
END 


d) Con un READ/DATA y un número determinado de datos (caso 
de MATRIZ): 


20 DIM A(5,3) 


30 FOR 1 1 TOS 
40 FOR J= 1703 
JO READ A(I,J) 

60 NEXT J 


70 NEXT I 
80 DATA 4,7,5,2,9,8,7,2,2.5,27,3,2,20,12,5 


En este caso asignamos valores a la MATRIZ A(5,3). La asigna- 
ción se habrá hecho de la siguiente forma: 


A(/1)=4 
A (1,2) =7 
AQ, =3 
A (2,1) = 2 
A (2,2) =9 
etc. 


4.1.2. Salida de datos de un vector o de una matriz 


Una vez entrados los datos y efectuados los cálculos convenientes. 
las rutinas de salida serían: 


a) Para un vector: 
10 DIM A(20) 


20 FOR I = 1 710 20 
30 FRINT A(I) 
40 NEXT 1 


b) Para una matriz: 


Una vez DIMENSIONADO el ARRAY, y cargados sus valores, 
podremos operar con ellos simplemente teniendo en cuenta que nos 
encontramos con VARIABLES INDEXADAS, y qué tipo de varia- 
ble es. Por ejemplo, sería incorrecto codificar: 


A(7) = “JUAN” 


por ser una variable numérica no admite que se le asigne un valor 
alfanumérico. 


Hemos expuesto básicamente las operaciones de ENTRADA- 
SALIDA. Otras operaciones las veremos dentro del apartado 
REPASO de este capítulo. 


E E, 4 Pt 


PT) 


P2) 


P3) 


P4) 


PS) 


P6) 


P7) 


REPASO CAPITULO 122 


Hacer un programa que entrando una fecha del tipo 20/06/85 
nos la escriba de la forma 20 de junio de 1985. 

Realizar un programa que asigne un conjunto de valores numé- 
ricos en un vector de 10 elementos. Y que después nos displaye 
los elementos del vector y su suma. 


IDEM del P2 con una MATRIZ de dimensiones 4 y 3. Efectuar 
la salida por pantalla en forma de tabla. 


Realizar un programa tal que, introduciendo valores numéricos 
en un vector de 10 elementos desde teclado, nos visualice cuál 
ha sido el menor de los introducidos y en qué lugar se introdujo. 


Idem del P4 para una matriz de 3 elementos para la primera 
dimensión y 4 para la segunda. 


Dada una relación de trabajadores y sus sueldos, realizar un 


programa que nos dé, en moneda fraccionaria, el total para 
poder pagar cada uno de los sueldos. 

Teniendo billetes de 5.000, 1.000, 500 y 100, y monedas de 50, 
Za yl 


Idem del P6, pero ahora ofreciendo un listado de nombre, 
sueldo y sueldo parcial. 


P8) 


P9) 


Dada una matriz de 5 elementos para la primera dimensión y 
5 elementos para la segunda, introducir valores para los 4 
primeros elementos de las dos dimensiones de la forma: 


FILA 1 

COLUMNA 1 

VALOR 5 

El elemento (1,1) tendría un valor de 5. Queremos dejar en la 
última columna la suma de cada fila, y en la última fila la suma 
de todas las columnas, dejando en el elemento (5,5) la suma 
total. 


Sumar los elementos, de una matriz de 5 por 5, de la diagonal 
principal, sabiendo que la diagonal principal serán los elemen- 
tos (1,1) y (2,2). 


P10) Displayar la siguiente matriz en pantalla: 


XAAAAA 
BXAAAA 
BBXAAA 
BBBXAA 
BBBBXA 
BBBBBX 


No pasar la página hasta haber realizado los ejercicios planteados. 


R1) 


R2) 


R3) 


10 


SOLUCIONES CAPITULO 122 


REM FECHA 
DIM M$(12) 

DATA ENERO, FEBRERO, MARZO, ABRIL, MAYO, JUNIO, 
JULIO 

DATA AGOSTO, SEPTIEMBRE, OCTUBRE, NOVIEMBRE, 
DICIEMBRE 
FOR 1 = 1 70 12 
READ M$(1) 
NEXT 1 

INPUT "FECHA DE LA FORMA DD/MM/AA ";FECH$ 
LET ME$ = MID$ (FECH$,3,2) 

LET ME = VAL (ME$) 

PRINT  LEFTS (FECH$,2);" de "¿M$(ME);" DE 19" 
: RIGHTS (FECH$, 2) 

END 


REM ASIGNACION Y VISUALIZACION VECTOR 
DIM V(10) 
DATA 3,4,7,22,5.5,6,7,1,1.5,10 
FOR 1 = 1 TO 10 
READ V(1I) 
NEXT 1 
FOR I = 1 T0 10 
PRINT V(I) 
LET SUM = SUM + V(I) 
NEXT 1 
PRINT "SU SUMA ES "¿SUM 
END 


REM — ASIGNACIÓN Y VISUALIZACION MATRIZ 

DIM MA(4,3) 

DATA 24,153,11,10,9,8,7,6,42.5,27.5,3,5 

FOR I = 1 TO 4 E 


R4) 


FOR J = 1 70 3 

READ MA(I,J) 

NEXT J 

NEXT 1 

PRINT — TAB( 10)"MATRIZ" 
FRINT TABT 101*----= di 
FRINT 

FOR 1 = 1 TO 4 

FOR J = 1 TO 3 


PRINT  TAB( 6)MA(1,J)¡" "; 
LET SUM = SUM + MA(1,J3J) 
NEXT J 

PRINT 

NEXT 1 


PRINT : PRINT 
PRINT "LA SUMA ES "¡SUM 
END 


REM ENTRADA FOR TECLADO Y VISUALIZACION DEL 
MENOR 

DIM V(10) 

PRINT "ENTRADA DE VALORES" 

INPUT "VALOR ";V(1) 

LET MEN = V(1) 

FOR 1 = 2 TO 10 

PRINT "ENTRADA DE VALORES" 

INPUT "VALOR ";V(1) 

IF V(I) < MEN THEN MEN = V(I):P = 1 
NEXT I 


PRINT "EL MENOR ES ";MEN 
PRINT "ENTRADO EN LA POSICION ";P 
END 


R5) 


R6) 


REM — IGUAL QUE EL ANTERIOR PARA MATRIZ 
DIM A(3,4) 

LET MEN = 100000 

FOR 1 = 1 TO 3 

FOR J = 1 TO 4 

PRINT "ENTRADA DE VALORES" 


INPUT "VALOR "¿A(1I,J):kK =K + 1 

IF A(1,J) < MEN THEN MEN = A(1,J):P = K 
NEXT J 

NEXT 1 


PRINT "EL MENOR ES "MEN 
PRINT "ENTRADO EN LA POSICION "ye 
END 


REM DESGLOSE 
REM VECTOR BILLETES Y MONEDAS 
DIM MO(8) 
DATA  5000,1000,500,100,50,25,5,1 
FOR 1 = 1 708 
READ MO(1) 
NEXT 1 
REM VECTOR PARCIAL Y VECTOR TOTAL 
DIM P(8): DIM T(8) 
PRINT "PARA FINALIZAR ENTRE FIN PARA NOMBRE 
INPUT "NOMBRE  "¿NOM$ 
IF NOMS = "FIN" THEN GOTO 200 
INPUT "SUELDO ";SUE% 
FOR 1 = 1708 


LET P(I) = INT (SUEZ / MOD(I)) 
LET TD = T1(D) * PU 

LET SUEZ = SUEY - P(I) *X MO(I) 
NEXT 1 

GOTO 100 


FOR 1 = 1 TO 8 

PRINT "DE "¿MO(1);5" "¿T(1) 
NEXT I 

END 


R7) 


10 
20 
30 
40 
30 
60 
70 
80 
90 
100 


110 
120 
130 
135 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 


REM — DESGLOSE CON LISTADO 

DIM MD(8),T(8),F(8) 

DATA 5000, 1000,500, 100,50,25,5,1 
FOR I = 1 TO 8 

READ MO (1) 


NEXT 1 

PRE 1 

PRINT — SPC( 2) "NOMBRE " SPC( 10) "SUELDO" 
PRE O 

PRINT "FARA FIN DE ENTRADA ENTRE FIN PARA 
NOMBRE" 

INPUT "NOMBRE ";¡NOM$ 

IF NOMS = "FIN" THEN GOTO 270 
INPUT "SUELDO "¡SUE 

LET A = SUE 

FOR I1= 1708 

LET PCT) INT (SUE / MO(1)) 
LET T(1) TUE? + PU 

LET SUE = SUE - P(I) K MO(I) 
NEXT 1 

PRE 1 

FRINT SPC( 2)NOM$ TAB( 20)A 
FOR 1 = 1 T08 

PRINT *DE *3MU01A3"* *:PCULD) 
NEXT 1 

PRINT 

PR* O 

GOTO 100 

PRE 1 

FRINT 

PRINT SPC( 5)"TOTAL " 

FOR 1 = 1 TO 8 

PRINT "DE "¿MOD(1);" ";T(1) 
NEXT I 

PR$ O 

END 


R8) 


R9) 


REM TABLA SUMA FILAS Y COLUMNAS 
DIM B(5,5) 

FOR 1 = 1704 

FOR J = 1 TO 4 

PRINT "VALOR DEL ELEMENTO "¿I;" "pJ¿" "; 
INPUT B(1,J) 

NEXT J 

NEXT 1 

FOR 1 = 1 7104 

FOR J = 1 104 


LET B(1,5) = B(1,5) + B(1,J) 
LET B(5,J) = B(5,J) + B(1,J) 
NEXT J 
NEXT 1 


FOR J = 1 TO 4 

LET B(5,5) = B(5,5) + B(5,J) 
NEXT J 

FOR 1 1.70 3 

FOR J 1 TOS 

PRINT B(I,J);" "> 

NEXT J 

PRINT 

NEXT I 

END 


REM SUMA DE LA DIAGONAL PRINCIPAL 
DIM C(5,5) 

FOR 1 = 1705 

FOR J =1 7105 

PRINT "INTRODUCE EL ELEMENTO ";1;J; 
INPUT C(1,J) 

NEXT J: NEXT 1 

FOR 1 =1 7105 

LET SUM = SUM + C(1,1) 

NEXT I 

PRINT "LA SUMA ES "¿SUM 

END 


R10) 


REM MATRIZ ALFANUMERICA 
DIM M$(6, 6) 

FOR 1= 2706 

FOR J = 1 7106 

LET M$(1,J) = "B" 
LET M$(J,1) = "A" 
NEXT J 

NEXT 1 

FOR 1 =1 706 
LET M$(1,1) = "x" 
NEXT 1 
FOR 1 
FOR J 


1 TO 6 
1 TO 6 


PRINT M$(1,J)5" "; 
NEXT J 

PRINT 

NEXT 1 

END 
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CAPITULO 132 


ORDENACION Y BUSQUEDA 
EN VECTORES Y MATRICES 


1. INTRODUCCION 


Los procesos de ordenación de vectores y matrices se han conver- 
tido en un trabajo cotidiano dentro de la programación. Su utiliza- 
ción es tal, dentro del mundo de la Informática, que no podíamos 
dejarlos a un lado. 

Existen muchos algoritmos de ordenación. Veremos solamente 
tres: el ALGORITMO DE CLASIFICACION POR INTERCAM- 
BIO, ALGORITMO DE CLASIFICACION POR CAMBIO y el 
METODO DE LA BURBUJA. El aumentar el estudio de otros 
algoritmos no es imprescindible en este momento. 


Para hacer más hincapié en la necesidad de la ordenación pon- 
dremos un ejemplo: 


Imaginémonos que estamos realizando un programa que trabaja 
con un vector que contiene nombres de alumnos y en otro vector que 
existen sus correspondientes notas. En un momento dado, el pro- 
grama realizará un listado de cada alumno con su correspondiente 
nota. Indudablemente, el alumno que vaya a mirar la lista de notas 
intentará encontrarse por su orden alfabético dentro de la lista de 
nombres y, una vez que se haya encontrado, le será fácil saber su 
nota. Si los datos que hemos ido introduciendo en el vector de 
nombres se ha hecho totalmente al azar, éste normalmente estará 
desordenado. Tal problema requiere que antes de efectuarse el listado 
se aplique en el programa un algoritmo de ordenación en el vector de 
nombres teniendo en cuenta que el cambio de posición de un nombre 
dentro del vector nombres llevará implícito el cambio de la nota en el 
vector de notas. 


2. CLASIFICACION POR INTERCAMBIO 


Supongamos que tenemos que clasificar los elementos de un 
vector [a,, a). ... ap] 


En primer lugar, se selecciona el elemento mayor de entre los a, 
a)... a; se obtiene digamos el a; que será intercambiado con el a,. Es 
decir, en este momento tendremos en el elemento a, al mayor de todos 


los elementos. Después, se selecciona el segundo elemento mayor 
dentro de los elementos que nos quedan sin ordenar ay, a), az... a, 


y se obtendrá un aj, que será intercambiado con el elemento a, ;: 


teniendo en este momento los dos últimos a, y a, ya ordenados. 


A continuación, se realiza una exploración entre a,, a,,... ay, y Se 
obtiene un a, que se intercambia con el elemento a,,.,, y así sucesiva- 
mente. 


Veamos un ejemplo gráfico: 


Posición inicial 


V(1) VQ) VB) V(4) V(S) 
OA E E EE 
O EE E E E 
O EEE E EE 
co Eb 


¿Cómo codificaríamos este algoritmo? Supongamos el ejemplo 
dado. 


10 REM CLASIFICACION FOR INTERCAMBIO 

20 DIM V(5) 

30 DATA 7,3,2,2,4,5 

40 REM ASIGNAMOS LOS VALORES 

50 FOR 1 =1 705 

60 READ VII) 

70 NEXT 1 

80 REM ASIGNAMOS A K EL NUMERO DE ELEMENTOS 

90 LETK=S5 

100 REM HACEMOS COMO MAXIMO EL ULTIMO ELEMENTO 


110 LET MAX = V(K) [sicue > 


120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 


REM BUSCAMOS ENTRE EL RESTO EL ELEMENTO A CAMBIAR 
FOR 1 = 1 T0K- it 

IF Y(1) > MAX THEN MAX = V(1):P = 1 
NEXT 1 

REM INTERCAMBIAMOS LOS ELEMENTOS 

LET V(F) = VIK) 

LET V(K) = MAX 

REM CONTROLAMOS EL FINAL DE LA RUTINA 
IFK< > 2 THEN K=K- 1: GOTO 110 
REM EL VECTOR ESTA YA ORDENADO 

FOR 1 = 17105 

PRINT VID)" "; 

NEXT 1 

END 


Observar que desde la línea 110 a la línea 180 existe un bucle que 
podría haber sido codificado de la siguiente forma: 


FOR K =5TO 2 STEP —] 
MAX = V(K) 
FOR 1% =1 TO K — | 
í V(1%)> MAX THEN MAX = V(1%) : P% = 1% 
NEXT 1% 
V (P0%) = V(K) 
V(K) MAX 
NEXT K 


3. CLASIFICACION POR CAMBIO 


En el primer paso del método de clasificación por cambio se 
compara el elemento a; con el elemento a;+l para i= 1, 2,..., n-l, y se 
cambian estos elementos siempre que a; sea mayor que a¡+l. Con ello 


se consigue que el elemento mayor de todos ellos se desplace progresi- 
vamente hacia la n-sima posición y que no tome parte en las compara- 
ciones subsiguientes. El proceso terminará cuando en un paso no se 
efectúe ningún cambio. 


Con este método se reduce el número total de comparaciones y es 
muy útil cuando los elementos a clasificar están ya bastante ordena- 
dos. Veamos un ejemplo: 


Posición inicial 


V(1) VQ) VB) V(4) V(S) 


primer Paso AT 
segundo Paso 
terceras. [Aa 


Su codificación será: 


10 REM CLASIFICACION POR CAMBIO 

20 DIM V(5) 

30 DATA 7,3,2,24,5 

40 REM ASIGNAMOS LOS VALORES 

50 FOR I=1 705 

60 READ V(I) 

70 NEXT 1 

80 REM GUARDAMOS EL NUMERO DE ELEMENTOS EN N 

90 LETN=5 

100 FOR I]=1 TON- 1 

110 IF V(I) > V(I + 1) THEN AUX = V(I):V (1) = V(I + 1); 
V(I + 1) = AUX:SW = 1 


120 REM HEMOS INTERCAMBIADO LOS VALORES 


130 REM Y NOTAMOS QUE HA HABIDO CAMBIOS CON SW=1 
140 NEXT 1 

150 REM FINAL DEL PRIMER PASO 

160 REM DECREMENTAMOS N EN UNO 

170 LETN=N-1 

180 REM COMPROBAMOS SI HA HABIDO INTERCAMBIO 
190 IF SW = 1 THEN SW = 0: GOTO 100 

200 REM EL VECTOR YA ESTA ORDENADO 

210 FOR] = 1705 

220 PRINT V(I)¿" "; 

230 NEXT 1 

240 END 


4. METODO DE LA BURBUJA 


En el primer paso del método de la BURBUJA se compara el 
elemento a, con los elementos a,, a, ... ay intercambiando los elemen- 
tos siempre que un a;< a,, con lo que conseguimos llevarnos a la 
primera posición el menor de todos los elementos. En el paso 
siguiente compararemos el a, con los elementos as, ay, ... a,, cam- 
biando los elementos siempre que un a;< a). 


Con lo que conseguimos llevarnos a la segunda posición el 
siguiente elemento menor, y así sucesivamente hasta realizar la última 
comparación que será entre el penúltimo y último elemento. 


Gráficamente el ejemplo anterior sería: 


Posición inicial 
pines raso aaa 


segundo Paso [JA 
cuno raso asa 


Veamos su codificación: 


10 REM ORDENACION FOR EL METODO DE LA BUREUJA 

20 DIM V(5) 

30 DATA 7,3,2,24,5 

40 REM ASIGNAMOS LOS VALORES 

50 FOR 1 = 1 TOS 

60 READ V(I) 

70 NEXT 1 

80 REM GUARDAMOS EL NUMERO DE ELEMENTOS EN N 

90 LETN=S3 

100 REM EMFEZAMOS EL ALGORITMO 

110 FOR 1=1TON- 1 

120 REM MIENTRAS EXISTE UN ELEMENTO FIJO EL OTRO 
130 REM VARIA DESDE I+1 HASTA EL FINAL 

140 FOR J=1+1 TON 

150 IF V(I) > V(J) THEN AUX = V(I):V(I) = V(J):V (J) 


= AUX 
160 NEXT J 
170 NEXT 1 


180 REM FINAL DEL ALGORITMO 
190 FOR I = 1 TOS 

200 PRINT V(I)3" "; 

210 NEXT I 

220 END 


Al igual que hemos ordenado vectores podríamos ordenar 
matrices que aconsejamos hacerlo por el segundo algoritmo expuesto 
(CLASIFICACION POR CAMBIO). 


5. BUSQUEDAS 


Partiendo del problema expuesto al principio del capítulo, pen- 
semos ahora en visualizar por pantalla la nota obtenida por un 
alumno, dando por hecho que en memoria seguimos teniendo el 
vector de nombres de alumnos y el vector de notas que se correspon- 
dían en cuanto a sus posiciones o, lo que es lo mismo, si en el primer 
elemento del vector de nombres tenemos el nombre de un determi- 
nado alumno, en el primer elemento del vector de notas estará su nota 
correspondiente. Para realizar dicho programa tendremos que utili- 
zar las llamadas BUSQUEDAS, que existen sólo de dos tipos: la 
búsqueda SECUENCIAL y la búsqueda DICOTOMICA. 


5.1. Búsqueda secuencial 


El proceso de búsqueda secuencial consiste en ir comparando 
elemento a elemento hasta localizar el deseado. 


Por ejemplo, si deseáramos saber la nota de un determinado 
alumno, cuyo nombre introduciremos por teclado, iríamos compa- 
rando el nombre entrado con cada uno de los elementos del vector de 
nombres empezando por el que se encuentre en la primera posición y 
continuando progresivamente hasta encontrar dicho nombre. Una 
vez localizado, como conocemos ya su posición, iremos al vector 
notas y en el mismo lugar encontraríamos la nota del alumno. 


En un proceso de búsqueda puede ocurrir que exista el elemento 
que tratamos de encontrar, con lo cual nuestro objetivo está cumplido 
o que el elemento que tratamos de encontrar no exista, lo cual deberá 
ser notificado en cualquier buen programa. 


Partimos ahora del vector de cinco elementos que nos ha servido 


para explicar las ordenaciones. En dicho vector pretendemos saber 
qué elemento tiene como contenido 24. Naturalmente la respuesta del 
ordenador ha de ser el 4. 


Codificamos una BUSQUEDA SECUENCIAL: 


10 REM BUSQUEDA SECUENCIAL 

20 DIM V(5) 

30 DATA 7,3,2,24,5 

40 REM ASIGNAMOS LOS VALORES 

50 FOR I=1 705 

60 READ V(I) 

70 NEXT 1 

80 REM INTRODUCIMOS EL VALOR A BUSCAR 

90 INPUT "QUE VALOR "¿XxX 

100 REM NATURALMENTE INTRODUCIREMOS 24 

110 REM COMENZAMOS LA BUSQUEDA 

120 FOR Il =1 7105 

130 IF V(I) = X THEN PRINT "ES EL ELEMENTO "¡E:ENS = 
"SI"¡l =5 

140 NEXT 1 

150 IF EN$ < > "SI" THEN PRINT "NO EXISTE" 

180 END 


5.2. Búsqueda dicotómica 

Si el vector está ordenado y éste consta de un número muy alto de 
elementos, el utilizar la BUSQUEDA SECUENCIAL sería como 
consultar un diccionario sin aprovechar el conocimiento de la posi- 
ción relativa de las palabras. 


La búsqueda DICOTOMICA tiene el siguiente algoritmo: 
Comenzar apuntando hacia el centro del vector y comparar el ele- 


mento buscado con el del vector. De acuerdo con el resultado de la 
comparación haremos: 
SI ES IGUAL, la entrada ha sido hallada. 
SI ES MAYOR el elemento buscado, usar la mitad final del 
vector como nuevo vector. 
SI ES MENOR, usar la mitad inicial del vector como nuevo 
vector. 


Si la longitud del vector se ha reducido a un elemento y éste no 
coincide con el elemento buscado, éste NO ESTA EN EL VECTOR. 


Representemos mediante un organigrama el algoritmo de BUS- 
QUEDA DICOTOMICA. 


Sea N el número de elementos del vector: 


BUSQUEDA DICOTOMICA 


MAYOR = N 


MENOR = | 


MENOR> MAYOR 


EL ELEMENTO 
NO EXISTE 


mayor + menor 


2 


MEDIO = 


cociente entero 


ELEMENTO 
ENCONTRADO 


MAYOR = 
MEDIO — 1 


MENOR = 
MEDIO + 1 


Codificaremos la búsqueda dicotómica para el vector de cinco 
elementos una vez ordenado. Tener siempre en cuenta que para 
efectuar o aplicar la búsqueda DICOTOMICA el vector ha de estar 
ORDENADO. 


REM BUSQUEDA DICOTOMICA 
DIM V(5) 
DATA 2,3,5,7,24 
REM ASIGNAMOS LOS VALORES YA ORDENADOS 
FOR 1 = 1705 
READ V(1I) 
NEXT 1 
REM INTRODUCIMOS EL VALOR A BUSCAR 

INPUT "QUE VALOR ";X 

REM EMPEZAMOS LA BUSQUEDA 

LET MAY = 5 

LET MEN = 1 

LETM= INT ((MAY + MEN) / 2) 

IF MEN > = MAY AND V(MEN) < > X THEN FRINT "NO 
EXISTE": GOTO 180 ) 
IF V(M) = X THEN PRINT "SU POSICION ES "¿M: 
GOTO 180 

IF V(M) > X THEN MAY = M: GOTO 125 

LET MEN = M + 1: GOTO 125 

END 


E PRESUMEN = 


Pl) 


REPASO CAPITULO 132 


Entrados diez números, efectuar una salida ordenada de éstos 
de menor a mayor utilizando la CLASIFICACION POR 
INTERCAMBIO. 


Idem del Pl utilizando el algoritmo de CLASIFICACION 
POR CAMBIO. 


Idem del Pl utilizando el algoritmo de la BURBUJA. 


Introducir diez números y buscar en qué posición está uno de 
ellos. 


Introducir diez números, ordenarlos y efectuar una búsqueda 
DICOTOMICA 


Introducidos diez nombres de alumnos, junto a sus diez notas, 
efectuar un listado en pantalla ordenándoles por orden alfabé- 
tico del nombre. 


Supuesta hecha la ordenación del P6, introducir un nombre de 
alumno y visualizar su nota. 


No pasar la página hasta haber realizado los ejercicios planteados. 


R1) 


R2) 


SOLUCIONES CAPITULO 132 


DIM V(10) 

PRINT "ENTRE DIEZ NUMEROS " 

FOR I = 1 TO 10 

INPUT "NUMERO ";V(1) 

NEXT I 

FOR K = 10 TO 2 STEP. - 1 

LET MAX = V(K) 

FOR 1 = 1 TOK-1 

IF V(I) > MAX THEN MAX = V(1):P = 1 
NEXT 1 


LET V(P) = V(K) 
LET V(K) = MAX 
NEXT K 


FOR 1 = 1 TO 10 
PRINT V(I)3" *; 
NEXT 1 

END 


DIM V(10) 

PRINT "ENTRE DIEZ NUMEROS " 

FOR 1 = 1 TO 10 

INPUT "NUMERO ";V(1) 

NEXT I 

LET N = 10 

FOR 1 = 1 TO0N-1 

IF V(I) > V(I + 1) THEN AUX = V(1):V (1) 
+ 1): V(I + 1) = AUX:SW = 1 


NEXT 1 
LETN=N-1 
IF SW = 1 THEN SW = O: GOTO 70 
FOR 1 = 1 TO 10 
PRINT V(I)¿" "; 
NEXT 1 


END 


= V(I 


R3) 10 


R4) 


R5) 


DIM V(10) 

PRINT "ENTRE DIEZ NUMEROS " 
FOR 1 = 1 TO 10 

INPUT "NUMERO ";V(I) 

NEXT 1 


+ 1 
V(J) THEN AUX = V(I):V(1) = V(J):V(J) 


FOR I = 1 TO 10 
PRINT V(D);¿" ”; 
NEXT I 

END 


DIM V(10) 

PRINT "ENTRE DIEZ NUMEROS " 

FOR I = 1 TO 10 

INPUT "NUMERO ";V(1) 

NEXT 1 

INPUT "VALOR A BUSCAR ";X 

FOR 1 = 1 TO 10 

IF V(1) = X THEN PRINT "POSICION ";I:SW = 1:1 
= 10 

NEXT 1 
IF SW< > 1 THEN PRINT "NO EXISTE" 
END 


DIM V(10) 
PRINT "ENTRE DIEZ NUMEROS " 
FOR 1 = 1 TO 10 


INPUT "NUMERO ";¿V(I) 
NEXT 1 


60 LET N 

70 FOR 1 

80 IF V(I) > V(I + 1) THEN AUX = V(I):V(1) = VCI 
+ 1): V(I + 1) = AUX:SW = 1 

90 NEXT I 


10 
1 TON 2 


100 LETN=N- 1 

110 IF SW = 1 THEN SW = O: GOTO 70 

1135 INPUT "QUE VALOR ";X 

120 LET MAY 10 

130 LET MEN 1 

140 LET MD = INT ((MAY + MEN) / 2) 

150 IF MEN > = MAY AND V(MEN) < > X THEN PRINT 
"NO EXISTE": GOTO 190 

160 IF V(MD) = X THEN FPRINT "SU POSICION ES "¿MD: 
GOTO 190 

170 IF V(MD) > X THEN MAY = MD — 1: GOTO 140 

180 LET MEN = MD + 1: GOTO 140 

190 END 


R6) 10 DIM NOM$(10),N(10) 
20 PRINT "INTRODUCIR 10 NOMBRES Y SUS 10 NOTAS " 
30 FOR 1 = 1 TO 10 
40 INPUT "NOMBRE ";NOM$ (1) 
SO INPUT "SU NOTA ";¿N(I) 


1 1 
> NOM$(J) THEN GOSUB 500 


140 VTAB 3 
150 PRINT TAB( S5)"NOMBRE " TAB( 25) "NOTA " 


160 PRINT 
170 FOR 1 = 1 70 10 E 


R7) 


180 
190 
200 
300 
310 
520 
330 
340 
330 
360 
370 


220 
225 
230 
240 
250 
260 
270 
280 
290 


300 


310 
320 
330 


PRINT — TAB( 5)NOM$(1) TAB( 26)N(I) 

NEXT I 

END 

REM — RUTINA DE CAMBIOS DE NOMBRES Y NOTAS 
LET AUX$ = NOM$ (1) 

LET NOM$(I) = NOM$(J) 

LET NOM$(J) = AUX$ 

LET AUX = N(I) 


LET N(1) = N(J) 
LET N(J) = AUX 
RETURN 


REM SUPONEMOS QUE ES UNA CONTINUACION 
PRINT "DESEA SABER LA NOTA DE ALGUN ALUMNO " 
INPUT "PULSE LA S SI LO DESEA";CL$ 

IF CL$ < > "S" THEN GOTO 330 

INPUT "NOMBRE ";X$ 

LET MAY = 10 

LET MEN = 1 
LET MD = INT ((MAY + MEN) / 2) 

IF MEN = MAY AND NOMS(MEN) < > X%$ THEN PRINT 
"NO EXISTE ESE NOMBRE": GOTO 330 

IF NOM$(MD) = X$ THEN PRINT "ES UN "¿N(MD): 
GOTO 330 

IF NOM$(MD) > X$ THEN MAY = MD - 1: GOTO 280 
LET MEN = MD + 1: GOTO 280 

END 
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CAPITULO 142 


DEPURACION DE ERRORES 
DE UN PROGRAMA 


1. INTRODUCCION 


En el trabajo de programación pueden aparecer muchos errores 
debidos a una forma erronea de codificación de las sentencias. Recor- 
demos que nuestro ordenador nos daba el mensaje: 


? SINTAX ERROR 
en el caso de haber cometido un error de escritura. 


A continuación describiremos los mensajes de error que se nos 
pueden presentar. 


? BAD SUBSCRIPT ERROR 


Se ha referenciado un ARRAY con un número erróneo de ele- 
mentos o con uno o más elementos que exceden su dimensión. 
Código de error: 107. 


? DIVISION BY ZERO ERROR 


Se ha intentado dividir por una expresión cuyo valor es 0. Código 
de error: 133. 


? NEXT WITHOUT FOR ERROR 


Se ha ejecutado un NEXT sin el correspondiente FOR. Código de 
error: 0, 


? OUT OF DATA ERROR 


Se intenta asignar a las variables a continuación de la sentencia 
READ constantes no existentes en una sentencia DATA. Código de 
error: 42, 


? OVERFLOW ERROR 


Se ha calculado o se ha introducido un número demasiado grande 
o demasiado pequeño. Código de error: 66. 


? REDIM'D ARRAY ERROR 


Se ha ejecutado una sentencia DIM para un ARRAY previa- 
mente dimensionado. La mayor parte de las veces sucede cuando la 
matriz se ha dimensionado por defecto. Código de error: 120. 


? RETURN WITHOUT GOSUB ERROR 


Se han ejecutado más sentencias RETURN que GOSUB. Código 
de error: 22. 
? STRING TOO LONG ERROR 


Se ha intentado concatenar cadenas, resultando una de más de 
256 caracteres. Código de error: 176. 


? SYNTAX ERROR 


Se ha cometido un error de sintaxis. Código de error: 16 


? TYPE MISMATCH ERROR 


Se ha utilizado una expresión o variable numérica donde debería 
ser una expresión o variable alfanumérica, o viceversa. También 
ocurre cuando a los lados de una secuencia de asignación no hay 
concordancia en el tipo. Código de error: 163. 


? UNDEF'D FUNCTION ERROR 


Se ha referenciado una función definida por el usuario que no está 
definida. Código de error: 224, 


? UNDEF'S STATEMENT ERROR 


Se ha intentado bifurcar a un número de línea no existente. 
Código de error: 90. 


Todos estos códigos de error se almacenan en la posición de 
memoria 222, por tanto en dicha posición tendremos el código de 


error que se produjo más recientemente y podrá ser recuperado con la 
instrucción PEEK (222). 


2. SENTENCIA PEEK 


Formato: PEEK (dirección de memoria) 


Nos proporciona el contenido de una posición (un byte) de 
memoria. El valor proporcionado es el equivalente decimal de los 
ocho bits en la dirección de memoria indicada. 


Ejemplo: 
Si en un programa se produce un error 
? UNDEFSTATEMENT ERROR 
al hacer 
PRINT PEEK (222) 


nos visualizará 90, siempre y cuando se haya ejecutado antes una 
sentencia ONERR GOTO, lo cual describimos a continuación. 


3. SENTENCIA ONERR GOTO 


Formato: ONERR GOTO línea 


Bifurca el número de línea indicado, cuando un error subsiguiente 
se presenta, sin detener la ejecución del programa. Es decir, este 
comando establece un indicador que hace que el programa bifurque 
al número de línea indicado cuando se produce un error. 


El comando ONERR GOTO debe de ejecutarse antes de que se 
produzca el error. El código de error se habrá almacenado en la 
posición de memoria 222. Podremos extraerlo mediante la instruc- 
ción PEEK (222), investigarlo y tomar una decisión en la rutina de 
tratamiento del error si pretendemos hacer nuestro tratamiento espe- 
cial para tal error y no que el sistema nos avise mediante un mensaje 
correspondiente, y pare la ejecución del programa. 


Cuando se produce un error, dentro de un bucle FOR-NEXT, o 
en una subrutina GOSUB, se pierden los punteros y las pilas. Su 
rutina de tratamiento de errores deberá volver a la sentencia FOR, 
o a la GOSUB, reiniciando el bucle o subrutina. Si la rutina de 
tratamiento de errores vuelve a una sentencia NEXT o a una senten- 
cia RETURN, se producirá otro error. 


ERR y ERL 


Son dos variables que en otras versiones de BASIC (no existen en 
nuestro ordenador COSPA AULA-1) nos devuelven el código del 
error (ERR) y el número de línea donde se produjo dicho error 
(ERL). 


ERL es el equivalente a la utilización en nuestro COSPA AULA-! 
de la sentencia PEEK (222), pero la función que realiza ERL no la 
podemos suplir con ninguna otra en nuestro ordenador. COSPA 
AULA-1l, a no ser que en un programa fuésemos asignando a una 
variable el número de línea en la cual nos encontramos y en la rutina 
de tratamiento de errores visualizáramos dicha variable de la 


siguiente forma: 


10 ONERR GOTO 1000 


20 NL=20 
30 NL=30 
40 NL =40 


100 NL = 100:END 


1000 REM RUTINA ERROR 
1010 PRINT “ERROR EN LA LINEA”".NL 
1020 GOTO 100 


De esta forma, si se produjera algún error a lo largo del programa, 
nos saldría impreso el mensaje: 


ERROR EN LA LINEA 


y el número de línea correspondiente donde se ha producido el error. 


4. SENTENCIA RESUME 


Formato: RESUME 


Hace que un programa reanude la ejecución al principio de la 
instrucción en la que se produjo un error. 


RESUME sólo puede emplearse después de que se haya dispa- 
rado por un error una bifurcación ONERR GOTO. Si se ejecuta 
RESUME cuando no se haya producido ningún error, los resulta- 
dos no son previsibles y suelen ser “trágicos”. Siempre es conveniente 
que las rutinas de tratamientos de errores se codifiquen después de 


codificar la instrucción END. 


Veamos un ejemplo: nuestro ordenador nos da el código de error 


6 cuando al ir a leer datos de un fichero éste no existe. Podríamos 
realizar una rutina de tratamiento de errores en nuestro programa 
activando la sentencia ONERR, ya que posiblemente el operador se 
equivoca en la elección del disco, y en dicho disco no existe tal fichero. 


100 REM INICIAMOS LA LECTURA EN EL FICHERO 
110 ON ERROR GOTO 1000 
120 OPEN - - - 


800 END 

1000 IF PEEK (222) = 6 THEN PRINT “SE HA EQUIVOCADO EN LA 
ELECCION DEL DISCO”: PRINT"* CAMBIELO” 

1010 RESUME 


Una vez puesto el disco, donde se encuentra grabado el fichero del 
cual pretendemos leer, continuaría el programa su ejecución nor- 
malmente sin haberse interrumpido la ejecución del programa. 


5. SENTENCIA TRACE Y NOTRACE 


Formato: TRACE 


Es muy importante para ayudar a la depuración de un programa. 
Visualiza los números de línea, entremezclados con los datos visuali- 
zados por el programa, por los cuales va pasando la ejecución de un 
programa. Sólo puede desactivarse cuando se ejecute NOTRACE. 


Interrumpe el seguimiento de la ejecución del programa que se 
inició con TRACE. 


Veamos un ejemplo: 


10 LET K = 10 

20 FOR J = 1 TO 2 

SU LETL*"RK TO 

20 PRINT J$* *“K1” *9L 
SO LETK=HK+ 10 

60 NEXT J 

70 END 

TRACE 

RUN 


+10 $20 $20 $40 1 10 20 
$50 $60 $30 $40 2 20 30 
$50 $60 $70 

NOTRACE 


Son muy útiles si pretendemos hacer un seguimiento de qué 
instrucciones va realizando nuestro programa; dicho seguimiento 
siempre nos interesará hacerlo cuando obtengamos resultados erró- 
neos o nos hayamos metido en una rutina repetitiva (BUCLE), de la 
cual no podemos salir, no terminando la ejecución del programa. 


TRACE y NOTRACE pueden incluirse entre las instrucciones de 
un programa con el fin de hacer un seguimiento solamente parcial de 
qué instrucciones va ejecutando nuestro programa. 


Pl) 


P2) 


P3) 
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En la instrucción 100 de nuestro programa efectuamos: 

100 A = (B+C)/X 

110 

pudiendo en algún caso tomar X el valor cero, produciéndose 
por tanto el error: 


? DIVISION B4 ZERO ERROR 


Pretendemos realizar una rutina de control de error por divi- 
sión por cero, tal que ignore la instrucción a efectuar en la línea 
100 y continúe la ejecución del programa en la siguiente línea. 


Idem del P1, pero en este caso la rutina de control del error le 
asignará a X el valor 1 y continuará la ejecución en la línea 100. 


En la instrucción de la línea 90 de nuestro programa se puede 
producir un error de OVERFLOW: 


%MA=A B 
100 


Realizaremos una rutina de control de error tal que vaya 
disminuyendo el valor de A de 100 en 100 hasta la desaparición 
de dicho error. 


P4) Dada la siguiente rutina 


10 FOR I = 1 TO 2 
20 LETA=A+1 
30 FOR J=1TO 2 
40 LETB=EB+i1 
SO FOR K= 1703 
60 LETC=C+1 
70 NEXT K 

80 NEXT J 

90 NEXT I 

100 END 


Si activamos TRACE antes de inicializar la ejecución del pro- 
grama y lo desactivamos al finalizar la ejecución, ¿qué número 
de líneas se visualizarían en pantalla? 


PS) Idem de P4, pero ahora activando TRACE dentro del pro- 
grama y desactivando NO TRACE también dentro del pro- 
grama, de la forma: 


10 FOR I = 1 TO 2 
20 LETA=A+1 
30 TRACE 

40 FOR J = 1 TO 2 
JO LETB=B+1 
60 FOR KE = 1 TO 3 
70 LETC=C+.1 
80 NEXT K 

90 NEXT J 

100 NOTRACE 

110 NEXT I 

120 END 


No pasar la página hasta haber realizado los ejercicios planteados. 


R1) 


R2) 


R3) 


R4) 


R5) 


SOLUCIONES CAPITULO 142 


90 ONERR GOTO 500 


100 
300 
510 
320 


LETA= U(B+C)/X 

REM RUTINA DE ERROR 

IF PEEK (222) = 133 THEN GOTO 110 
GOTO 110 


90 ONERR GOTO 500 


100 
300 
310 
320 


LETA= U(B+C)/X 

REM RUTINA DE ERROR 

IF  PEEK (222) = 133 THEN X = 1 
RESUME 


90 ONERR GOTO 500 


100 
300 
510 


2883 
S 


40 
60 70 
70 


70 80 


LETA=A+B 
REM RUTINA DE ERROR 
IF PEEK (222) = 69 THEN A = A - 100: RESUME 


60 70 60 70 80 
70 60 70 80 9% 9% 20 
70 60 70 80 40 
80 90 


28858 
=> 
283838 


60 70 80 70 80 70 80 
80 70 80 70 80 90 40 
70 80 70 80 90 50 60 70 80 


g8 
S 
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CAPITULO 152 
GRAFICOS 


l. GRAFICOS DE BAJA RESOLUCION 


Se disponen de dos zonas de memoria separadas disponibles para 
los gráficos de baja-resolución. A estas zonas se les llamará PAGINA. 


Estas páginas constan de 48 filas por 40 columnas. Lo cual nos 
permite manejar 1.920 caracteres diferentes. Cada coordenada (inter- 
sección de una fila y una columna) aparecerá en pantalla como un 
pequeño rectángulo. 


A cada coordenada se le podrá asignar cualquiera de los 16 
colores disponible. 


1.1. Entrando en página de gráficos. 
Sentencias GR,TEXT 


Nos podemos encontrar con varias modalidades de presentación 
de pantalla. 

a) Pantalla de gráficos 

b) Pantalla de gráficos con 4 líneas de texto 

c) Pantalla de textos 


Veamos ahora las instrucciones que nos permiten trasladarnos de 
una modalidad de pantalla a otra: 


GR 

Esta instrucción nos deja una pantalla gráfica de 40 filas por 40 
columnas y una ventana de texto de 4 líneas en la parte inferior de la 
pantalla. 

La instrucción GR se puede utilizar las veces que se necesite, 
incluso si nos encontramos ya en modo gráficos de baja-resolución, 
en cuyo caso nos sirve para borrar pantalla. 


POKE — 16302,0 

Esta sentencia anula la ventana de textos y la deja como gráficos, 
dejando así una pantalla completa de gráficos de 48 filas por 40 
columnas. 


POKE — 16301,0 


Para volver a la modalidad de gráficos con ventana de textos 
tenemos dos opciones: volver a ejecutar una instrucción GR, con lo 
cual pasa a la modalidad gráficos con ventana de texto, borrando 
toda la pantalla; o bien, con la instrucción POKE — 16301,0 que hará 
lo mismo pero respetando el contenido de las 40 primeras filas de 
gráficos. 


TEXT 


Esta sentencia nos permite pasar a modalidad de texto en toda la 
pantalla. 


Hay que tener en cuenta que la sentencia TEXT no borra la 
pantalla y nos dará una presentación en pantalla de caracteres extra- 
ños como producto de interpretar caracteres gráficos como texto. 


Hemos de borrar pantalla con el comando HOME. 


PANTALLA 
TEXTOS 
GR 


40 
"US nn 
GRAFICOS 
TEXTO 


ML. Li —16302.0 
GR borra boe leo” 


TEXT 


1.2. Colores en baja resolución. 
Sentencia COLOR. 


Disponemos de 16 colores diferentes numeradas del O al 15 según 
la tabla siguiente: 


0 Negro 8 Castaño 
Magenta 9 Naranja 

2 Azul oscuro 10 Gris n9 2 

3 Púrpura 11 Roja 

4 Verde oscuro 12 Verde claro 

5 Gris n2 1 13 Amarillo 

6 Azul normal 14 Gris azulado 

7 Azul claro IS Blanco 


La sentencia “color” se utiliza para seleccionar el tono actual 
según el formato: 


COLOR = n£ de color 
Ejemplo: 
COLOR = 12 


En este caso selecciona el color verde claro. Si no seleccionamos 
ningún color, el sistema toma por defecto el color 0, es decir el negro. 


1.3. Traslado de puntos. Sentencia PLOT. 


Esta sentencia colorea un punto, con el color actual, en las coor- 
denadas que se indiquen en la sentencia PLOT según el formato: 


Ejemplo: 


PLOT nc? de fila, n2 de columna 


PLOT 20, 12 


Colorea un punto en la fila 21, columna 13, según el color 


seleccionado por la sentencia color ejecutada en último lugar. 


Los n2 de fila van del 0 al 47 y los de columna de O al 39. Siexceden 
estos límites se produce un error y el programa se interrumpirá. 


Los números de fila y de columna pueden ser constantes, variables 


O expresiones. 


Ejemplo: 


Hacer un programa para trazar una X en la pantalla gráfica de las 


40 primeras líneas. 


REM — EQUIS GRAFICA 


COLOR= 7 
PLOT 39 - X,X 


NEXT X 
END 


1.4. Trazado de líneas horizontales. 
Sentencia HLIN. 


La sentencia HLIN permite dibujar tales líneas de longitud varia- 
ble de izquierda a derecha con el formato: 


HLIN n? 1? columna, n? ultima columna AT n? de fila 


Es decir, nos trazará una línea horizontal en el color seleccionado 
desde la primera columna hasta la última; en la fila indicada a 
continuación de la palabra AT: 


HLIN 0,39 AT 5 


nos trazará una línea del margen izquierdo al derecho en la fila 6. 
(Recordemos que las filas y columnas comienzan a numerarse en 
cero.) 


Los parámetros de primera y última columna no pueden ser 
negativos, ni la última columna puede ser menor que la primera, y el 
número de fila no puede ser negativo ni mayor que 48. 


1.5. Trazado de líneas verticales. 
Sentencia VLIN. 


La sentencia VLIN permite dibujar líneas verticales de arriba a 
abajo con el formato: 


VLIN n2 2 fila, n2 última fila AT n2 columna 


Es decir, nos trazará una línea vertical en el color seleccionado 
desde la primera fila hasta la última; en la columna indicada a 
continuación de la palabra AT. 


VLIN 10,30 AT 5 
nos trazará una línea vertical de la línea 1l a la 31, en la columna 6. 


Las restricciones referentes a los parámetros son las mismas que 
en el HLIN. 


Ejemplo de uno combinado de HLIN y VLIN: 


Dibujar cuadrado en la pantalla utilizando las sentencias HLIN y 
VLIN. 


REM CUADRADO 

GR 

COLOR= RND (16) * 16 
HLIN 4,34 AT 4 

HLIN 4,34 AT 34 

VLIN 4,34 AT 4 

VLIN 4,34 AT 34 

END 


1.6. Sentencia SCRN 


La sentencia SCRN nos devuelve el número del color de un 
punto gráfico de baja-resolución correspondiente a las coordenadas 
que se indican en la sentencia: 


X = SCRN (n2 fila, n2 columna) 
X = SCRN (12, 14) 


Le asigna a X el n2 de color de las coordenadas indicadas entre 


paréntesis. 


10 
20 
30 
40 
50 


60 


GR 
COLOR= 7 
PLOT 10,10 


LET X = SCRN( 10,10) 
PRINT X, SCRN( 10,10) 
END 


El ordenador nos devolverá: 


7 7 


2. GRAFICOS DE ALTA RESOLUCION 


En este tipo de gráficos disponemos de una resolución de 280 
posiciones horizontales por 192 posiciones verticales. 


Con los gráficos de alta resolución aparecen una serie de condi- 
cionales. Se puede utilizar la página | de alta resolución si su ordena- 
dor tiene más de 16 K y podrá utilizar la página 2 si su ordenador tiene 
24 K o más. 


Si utiliza las versiones de APPLESOFT de CASSETTE o de 
DISCO, no podrá utilizar la página 1 de alta resolución, ya que se 
utiliza para mantener parte del intérprete del APPLESOFT. Puede 
utilizar la página 2 de alta resolución si su ordenador tiene por lo 
menos 24 K, ó 36 K si quiere tener el DOS en memoria al mismo 
tiempo. 


2.1. Entrando en alta resolución. 
Sentencia HGR. 


Teniendo en cuenta las restricciones explicadas en el apartado 
anterior, veamos cómo podemos entrar en los gráficos de alta resolu- 
ción. 


HGR 


Esta sentencia en APPLESOFT borra y visualiza la página l de 
alta resolución con una ventana de texto de cuatro líneas en la parte 
inferior de la pantalla; esto nos permite visualizar gráficos y textos a la 


vez. 


Al ejecutar la sentencia HGR, nos dejará para gráficos 280 
columnas, pero solamente 160 filas de las 192 posibles. 


POKE — 16302,0 


Con esta instrucción nos sustituirá las 4 líneas de texto por 32 
líneas de gráficos, con lo cual dispondremos de una pantalla total- 
mente gráfica de 280 columnas por 192 filas. 


HGR2 


Esta sentencia borra y visualiza la página 2 de alta-resolución 
utilizando las 192 líneas de gráficos sin dejar ninguna línea para 
textos. 


POKE — 16301,0 


Esta instrucción, ejecutada después de HGR2, abre la ventana de 
texto en la parte inferior de la pantalla. De todas formas, la utilización 
de esta ventana de texto de la segunda página de alta-resolución, es 
muy complicada pues no puede accederse a ella con la sentencia 
PRINT sino mediante sentencias POKE. 


Si ha usado la página 2 de gráficos hay que volver a seleccionar 
explícitamente la página | con un POKE — 16300,0. 


La sentencia GR no conmuta en Integer Basic de los gráficos de 
alta resolución a los de baja resolución. 


Deberá seleccionar explícitamente los gráficos de baja resolución 
con una sentencia POKE — 16298,0. 


2.2. Colores en alta resolución. 
Sentencia HCOLOR. 


Unicamente se pueden seleccionar 8 colores en alta resolución, pero 
sólo hay cuatro diferentes más el blanco y el negro. 


La sentencia HCOLOR de APPLESOPFT selecciona uno de los 
ocho colores disponibles de alta-resolución: 


HCOLOR = n2 de color 


Si se especifica un color fuera del rango de valores, se producirá 
un error. 


Los colores disponibles en alta-resolución son: 


0 Negro 4 Negro 
Verde 5 Naranja 

2 Violeta 6 Azul 

3 Blanco 7 Blanco 


2.3. Trazado de líneas y puntos 
Sentencia HPLOT. 


Esta sentencia nos permite colorear puntos determinados, en el 
color seleccionado en el último lugar, o bien trazar líneas con cual- 
quier ángulo. 

Por tanto, 


HPLOT nd fila, n2 columna 
HPLOT 12, 14 


dibujará en el color seleccionado el punto gráfico de las coordenadas 
citadas. 


Mientras que, 


HPLOT n2 fila, n2 columna TO n2 fila, n2 columna 
HPLOT 0, 0 TO 279, 191 


trazará una línea desde las coordenadas citadas en primer lugar hasta 
las segundas. 


En el ejemplo trazará una línea diagonal desde la esquina superior 
izquierda hasta la inferior derecha. 


e RESUREN= 4 
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PI) Hacer un programa en gráficos de baja resolución que trace una 
línea a lo largo de todo el borde de la pantalla y nos coloree el 
punto central. 


P2) Hacer un programa que nos represente los ejes de coordenadas 
y nos coloree en azul los puntos 7,7; —7,—7;7,—7; —7,7, con 
respecto a esas coordenadas. 


P3) Hacer un programa que escriba el nombre LUIS con letras de 
) 16 puntos de baja resolución de altura y 6 puntos de ancho con 
base en la línea 28. 


No pasar la página hasta haber realizado los ejercicios planteados. 


R1) 


R2) 


R3) 
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REM BORDE 
GR : POKE - 16302,0 
COLOR= 3 


VLIN 0,47 
PLOT 19,23 
END 


REM EJES DE COORDENADAS 


FLOT 20 + 7,20 + 71 REN 

PLOT 20 - 7,20 - 7: REM 

PLOT 20 + 7,20 - 7: REM 
PLOT 20 - 7,20 + 7: REM 
END 


REM — NOMBRE LUIS 
GR 

COLOR= 4 

HLIN 25,30 AT 13 
HLIN 25,30 AT 20 
HLIN 6,11 AT 28 

HLIN 13,18 AT 28 


Cospd> 


(7,-7) 

(-7,7) 

(7,7) 
(=7,-7) 


80 


100 
110 
120 
130 
135 
140 
150 


HLIN 25,30 AT 28 
90 VLIN 13,28 AT 6 


VLIN 13,28 AT 
VLIN 13,28 AT 
VLIN 13,28 AT 
VLIN 20,28 AT 
VLIN 13,20 AT 
VLIN 20,28 AT 
END 
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FICHEROS 


1. NECESIDAD DE ALMACENAMIENTO 
DE LA INFORMACION 


Si deseamos guardar más información que la que se pueda alma- 
cenar en la memoria del ordenador y, además, la queremos guardar de 
forma permanente para que no desaparezca en el momento que 
apaguemos el ordenador tendremos que utilizar algún PERIFE- 
RICO como MEMORIA AUXILIAR, tales como: 


— Discos 
Cintas 


— Diskettes 
— Cassettes 


ya que la información en memoria RAM desaparece en el momento 
en que desconectamos el ordenador. Toda esta información almace- 
nada en estos SOPORTES se denominan FICHEROS. Dentro de 
nuestro ordenador COSPA AULA -l podemos tener los siguientes 
tres tipos de ficheros: 


FICHEROS PROGRAMAS 
FICHEROS TEXTOS 
FICHEROS GRAFICOS 


cuyo nombre nos indica claramente la información que contienen 
cada uno de ellos. 


2. NOCIONES SOBRE DISCOS 


/ la) 
hs 


Un disco está fabricado con una superficie de sustancia magnética 
capaz de poder grabar información. El periférico que soporta un 
disco posee una CABEZA LECTORA-GRABADORA, es decir, 
podrá leer y grabar información que pueda posicionarse en cualquier 
superficie del disco. A esta característica la llamaremos ACCESO 
ALEATORIO. 


Los programas del DOS (Sistema Operativo en Disco) controla- 
rán todas las operaciones de lectura y grabación que se efectúen en 
ellos. 


Existen varios tipos de discos: 


DISCOS RIGIDOS. Pueden tener capacidades de almacena- 
miento del orden de 5 a 10 megabytes (aproximadamente un millon 
de caracteres). Son extraíbles, pudiendo el usuario quitar y poner 
discos en su unidad. 


DISCOS WINCHESTER. Pueden almacenar de 6 a 10 veces 
más información que los anteriores, son muy sensibles al polvo y a la 
suciedad, por lo que están precintados y no se pueden intercambiar. 


DISKETTES. Son los utilizados más corrientemente. Es un 
disco circular de vinilo encerrado en una envoltura de plástico que le 
sirve de protección. El diskette gira libremente dentro de la envoltura. 
Existen unas ventanas que permiten el acceso de la cabeza lectora- 
grabadora a la superficie magnetizada, y proporcionan una gran 
utilidad para hacerlos girar. En nuestro COSPA AULA-1 lo utiliza- 
mos de $5 /, pulgadas de diámetro y pueden almacenar hasta 143.360 
caracteres. 


El diskette se divide en 35 pistas concéntricas numeradas del 0 al 
34, dividida cada una de ellas en 16 sectores, pudiendo almacenar 
cada sector 256 caracteres. 


Conociendo el sector y la pista, el DOS buscará rápidamente la 
información dentro de esos 256 caracteres o grabará información en 
eNSECTOR, 


3. INICIALIZACION DE DISCOS. 
COMANDO INIT 


Antes de que se puedea escribir en un disco tendremos que 
INICIALIZARLO. Cuando se inicializa un DISKETTE, todo lo que 
tuviera almacenado se borra, por lo que tendremos que cerciorarnos 
de no INICIALIZAR un diskette que contenga datos que queremos 
conservar. 


El comando INIT almacena en el diskette cualquier programa que 
esté en memoria. Este se convierte en el programa de SALUDO, que 
se ejecutará automáticamente cada vez que se cargue desde ese 
diskette. 


Cualquier programa puede servir como programa de SALUDO. 
Hasta un programa que consista sólo de una sentencia NEW y una 
sentencia END. 


100 REM PROGRAMA HELLO 

200 PRINT "ESTE ES MI PRIMER DISKETTE" 
300 PRINT 

400 PRINT "INICIALIZADO EL 12/02/85" 
300 PRINT 

600 END 


Siempre se debe especificar el nombre del fichero del programa 
saludo, y siempre debe existir en el diskette dicho fichero. Si elimina- 
mos el programa de saludo nos encontraremos, al utilizar dicho 
diskette, con el mensaje: 


FILE NOT FOUND 


Dar nombres distintos al programa de saludo puede acarrear 
problemas ya que se nos podría olvidar; por lo que recomendaremos 
que se dé siempre el nombre HELLO. 


Para inicializar un diskette nuevo, primero retire el DISKETTE 
Maestro del sistema de la unidad y coloque el nuevo vacío. Utilice el 
comando NEW y dispóngase a realizar el programa HELLO; com- 
pruebe que funciona correctamente. Una vez comprobado, teclear: 


INIT HELLO 


y pulse RETURN. La inicialización se efectuará. Una vez realizada 
podremos observar que nuestro programa HELLO existe en el DIS- 
KETTE haciendo: 


CATALOG 
y pulsando RETURN aparecerá: 


DISK VOLUME 254 
1002 HELLO 


si hemos utilizado INTEGER BASIC. 


DISK VOLUME 254 
A 002 HELLO 


si hemos utilizado APPLESOFT. 


002 nos indica que nuestro programa ocupa dos sectores. 


4. NOMBRES DE FICHEROS 


El DOS requiere que para referirnos a un fichero le demos un 
nombre. Las reglas de formación de los nomrbes son las siguientes: 


a) Los nombres de los ficheros pueden tener una longitud de l a 
30 caracteres. El exceso de caracteres se ignora. 


b) Los nombres de los ficheros deben de comenzar con una letra. 


c) Cualquier carácter que se pueda introducir por el teclado 
puede formar parte del nombre del fichero, excepto las 
COMAS. 


5. COMANDO CATALOG 


Llamaremos DIRECTORIO a la zona reservada en los DISK E- 
TT'ES para almacenar información referente a los ficheros existentes. 
Normalmente se guarda en la pista 17 y reserva espacio suficiente para 
poder tener información de hasta 104 ficheros. En la información 
correspondiente a cada fichero tendremos: 


EL NOMBRE DEL FICHERO 

CODIGO SOBRE EL TIPO DE DATOS DEL FICHERO 

NUMERO TOTAL DE SECTORES QUE OCUPA 

UBICACION DE UNA PISTA/SECTOR (para el control de los sectores 

ocupados por el fichero) 

El comando CATALOG nos da el nombre de todos los ficheros 

del directorio del diskette en el dispositivo de salida que actualmente 
esté asignado, que suele ser la consola. 


Nos muestra en primer lugar el número de volumen del diskette. 
Para cada fichero del disco CATALOG nos muestra: 


TIPO DE DATOS QUE CONTIENE 
SI ESTA O NO BLOQUEADO 
NUMERO DE SECTORES 
NOMBRE DEL FICHERO 


de la forma: 


*] 002 HELLO 

*] 053 APPLE-TREK 

*I] 018 ANIMALS 

*] 053 TABLA 
para utilizar el comano CATALOG basta con teclearlo (suponiendo 
que tiene cargado el DOS): 


CATALOG 


Si el número de líneas de salida sobrepasa a 21, el ordenador 
visualizará las 21 primeras y esperará a que pulsemos cualquier tecla 
(excepto RESET, CTRL y SHIFT) para visualizar las siguientes 21. 
Esta pausa nos permitirá leer los nombres de los ficheros antes que 
desaparezcan por la parte superior de la pantalla. 


6. COMANDOS SAVE, LOAD, DELETE, RUN 


El comando SAVE nos guarda o salva programas en el DIS- 
KETTE, 


Una vez realizado un programa y que lo tenemos en memoria 
RAM, si deseamos guardarlo o grabarlo en un DISKETTE, la forma 


de hacerlo es sencilla; bastará teclear: 


SAVE nombre del programa 


y pulsar la tecla RETURN; así podremos conservar cualquier pro- 
grama BASIC que nos interese. Si utilizamos un nombre de fichero 
que ya exista en el diskette, el programa a guardar reemplazará al 
programa que se encontraba antes en el diskette. Por tanto, el pro- 
grama antiguo se borra automáticamente, siempre y cuando los dos 
estén hechos en la misma versión del BASIC. Si no lo están, el 
programa no se conservará y nos aparecerá un mensaje de: 

FILE TYPE MISMATCH 

LOAD 

El comando LOAD carga un fichero de programa desde el dis- 
kette a memoria RAM. Si el fichero no se encuentra nos aparecerá el 
mensaje: 
FILE NOT FOUND 


Además, el comando LOAD borra el programa existente en 
memoria antes de efectuar la carga. 


DELETE 
El comando DELETE elimina ficheros de los diskettes. 


DELETE PROGRAMA 
Eliminaría el fichero llamado PROGRAMA. 


RUN 


El comando RUN realiza las mismas funciones que el comando 


LOAD, pero además nos ejecuta el programa, es decir, carga e inicia 
la ejecución de un programa. 


Efectuando: 


RUN PROGRAMA 1 


cargaría y ejecutaría el PROGRAMA 1 


7. USO DE FICHEROS EN DISCO 


Consideraremos ahora los ficheros de TEXTO, que son aquellos 


en los que guardaremos información referente a datos que serán 
posteriormente tratados por algún o algunos programas. El trata- 
miento que harán nuestros programas con los ficheros de datos serán 
los siguientes: 


a) Creación de ficheros 


b 


0 


o” 


</ 


Consiste en grabar todos los datos que contiene nuestro 
fichero en el disco. Este conjunto total de datos estará dividido 
en REGISTROS que son unidades elementales de tratamiento 
de la información (datos) por nuestros programas, los cuales 
irán operando REGISTRO tras REGISTRO. 


Lectura de fichero 


Consistirá en ir leyendo registro tras registro e ir haciendo las 
Operaciones pertinentes de nuestro programa con los datos 
que nos aportan CADA UNO DE LOS REGISTROS. 


Actualización del fichero 


Consistirá en BORRADO DE REGISTROS: Eliminaremos 
aquellos registros cuya información no nos interese. 


MODIFICACION DE REGISTROS: Actualizaremos parte 
de la información existente en un registro. 

INSERCION DE REGISTROS: Probaremos nuevos regis- 
tros dentro del fichero. 


Nuestro COSPA AULA-1 dispone de dos tipos de organiza- 
ción de ficheros: ficheros de acceso secuencial y ficheros de 
acceso aleatorio. 


Ficheros de acceso secuencial 


Son aquellos a los que solamente se puede acceder de forma 
secuencial. Para leer o escribir el último REGISTRO del fichero 
habrá que leerse TODOS LOS REGISTROS ANTERIORES. 


Ficheros de acceso aleatorio 


Son aquellos en los que se puede acceder a un registro aleatoria- 
mente, sin necesidad de leer los anteriores. 


7.1. Apertura de ficheros. Comando OPEN 


Antes de acceder a los ficheros, se tienen que abrir. La apertura de 
un fichero da lugar a que el DOS obtenga la información relativa al 
fichero, da lugar a saber si está en el disco y en qué zona del disco se 
encuentra. El OPEN también facilita una zona de memoria para 
utilizarla como BUFFER para el fichero. 


Un Buffer es una zona de memoria fija dedicada, en el caso de 
tratamiento de información de ficheros, al trasiego de la información 
entre el PROGRAMA que utiliza dicha información y el soporte 
(disco) donde está grabada. | 


El comando OPEN tiene la siguiente forma: 


OPEN nombre del fichero, ranura, unidad, volumen 


La UNIDAD será el número de la unidad de discos Dl para la 
unidad de discos 1, y D2 para la unidad de discos 2. 


RANURA. Una unidad de discos puede tener más de una ranura. 
Así S3 sería la ranura número 3. 


VOLUMEN. Un disco es un volumen (contiene a uno o varios 
ficheros, que serán etiquetados con n2 de volumen: 
V99 volumen 99 
Así podría ser correcto: 
OPEN DATOS 1, S3, D2, V99 


Cuando no especifiquemos los parámetros, el sistema toma sus 
propios valores fijos que tiene asignados. Así también sería correcto 
escribir: 


OPEN DATOS 1 


Si el fichero especificado no existe, el DOS creará una entrada 
nueva en el directorio del disco. Dentro de un programa el comando 
OPEN deberá ir en una sentencia PRINT y precedido por un carácter 


CTRL-D. 
100 LET D$ = "": REM  CTRL-D 
200 PRINT D$;"OPEN SECUENCIAL" 
300 END 


También podríamos haber escrito la instrucción 200 de la forma: 


200 PRINT D$ “OPEN SECUENCIAL, 56, DI, V123" 


después de ejecutar el programa, si utilizamos: 


CATALOG 


veríamos en pantalla: 


DISK VOLUME 123 
*A 002 HELLO 
T 001  SECUENCIAL 
La “T” nos indica que es un fichero de TEXTOS (datos). 
El **” que precede a HELLO nos indica que este programa está 
bloqueado. 


7.2. Cierre de ficheros. Sentencia CLOSE 


En este momento el programa que hemos efectuado es muy 
deficiente, ya que no cierra el fichero al terminar. El comando 
CLOSE es muy importante. El no cerrar un fichero puede producir la 
pérdida de los datos y la posible destrucción de los datos en otro 
DISKETTE. 


El comando CLOSE tiene dos formatos. El primero es: 


Formato: CLOSE 


Escrito así cierra todos los ficheros que están abiertos en todos los 
diskettes, con independencia del volumen, unidad o ranura donde 
residan. Se puede cerrar un fichero individualmente añadiendo el 
nombre del fichero al comando CLOSE: 


CLOSE SECUENCIAL 


No se permite ni se necesitan los parámetros de ranura, unidad o 
volumen en cualquiera de los formatos de la sentencia CLOSE, ya 


que el DOS sabe donde se encuentra el fichero por estar previamente 
abierto. En nuestro programa anterior podríamos haber escrito: 


290 PRINT DS; “CLOSE” 


o bien: 


290 PRINT DS; “CLOSE SECUENCIAL” 


7.3. Escritura en ficheros. Sentencia WRITE. 


La información se envía al DISKETTE de la misma forma que se 
envía a la pantalla o a la impresora por medio de la sentencia PRINT. 
Cualquier dato que se pueda imprimir puede grabarse en un fichero 
de disco. Cuando imprima algo en el fichero el DOS actualiza un 
puntero interno que señala a la siguiente posición de la superficie del 
disco en donde se almacenarán los nuevos datos, de igual forma que 
la impresora avanza el papel a la siguiente línea. El puntero en un 
fichero secuencial sólo puede moverse hacia adelante. Antes de gra- 
bar tendremos que utilizar el comando WRITE para indicar al DOS 
que las sentencias PRINT son para escribir en un fichero, en vez de en 
pantalla: 


WRITE DATOS 1 


Después de hacer estc, las salidas posteriores se dirigirán al fichero 
DATOS 1. Así en el programa anterior podríamos grabar datos de la 
forma: 


210 PRINT DS : “WRITE SECUENCIAL” 
220 PRINT “ESTE TEXTO SERA ALMACENADO EN EL FICHERO” 


7.4. Lectura de ficheros secuenciales. 
Sentencia READ. 


Al igual que la salida de datos se puede enviar a un disco, la 
entrada de datos se puede leer desde un fichero en disco. 


La sentencia READ identifica a un fichero de disco como fuente 
para la entrada de datos mediante: 


READ DATOS 1 


después de esto las lecturas con la sentencia INPUT de datos se 
dirigirán al fichero DATOS 1. 


Para poder leer de un fichero, éste ha de estar previamente abierto 
con anterioridad. Así, este programa: 


100 
110 
120 
130 
140 
150 
160 


LET D$ = "": REM  CTRL-D 
PRINT D$; "OPEN SECUENCIAL" 
PRINT D$; "READ SECUENCIAL" 
INPUT A$ 

PRINT A$ 

PRINT D$; "CLOSE" 

END 


nos leería los datos escritos con la instrucción PRINT y serían visuali- 
zados en pantalla, por lo que observaríamos en nuestra pantalla: 


ESTE TEXTO SERA ALMACENADO EN EL FICHERO 


Pl) 


P2) 


P3) 


P4) 


PS) 


REPASO CAPITULO 16% 


¿Son correctos los siguientes nombres de ficheros? 


a) I| DATOS 

b) FICHERO 1 

c) ESTO ES EL NOMBRE DE UN FICHERO 
d) DA—TOS 

e) COMA, 


Una vez realizado un programa deseamos guardarlo en un 
diskette. ¿Cómo realizaría esta operación? 


Deseamos cargar en memoria el programa que se guardó con el 
nombre PROGRAMA 2, y además iniciar su ejecución. Escri- 
bir el mandato correspondiente. 


Deseamos cargar en memoria el programa que se guardó con el 
nombre PROGRAMA 1l. ¿Cómo lo haríamos? 


Codificar una sentencia OPEN que abra el fichero de datos 
llamado NOMBRES, que se encuentra en la unidad 2 y tiene 
como número de volumen el 200. 


P6) Realizar un programa que se cree un fichero que grabe los dos 
siguientes datos: 


PRIMER REGISTRO 
SEGUNDO REGISTRO 


P7) Una vez creado el fichero en P6, realizar un programa que nos 
lea y visualice por pantalla los datos grabados en P6. 


No pasar la página hasta haber realizado los ejercicios planteados. 


SOLUCIONES CAPITULO 16% 


R1) a) Noescorrecto por ser el primer carácter un dígito numérico. 
b) Correcto. 
c) Correcto. Se guardará como nombre los treinta primeros 
caracteres. 
d) Correcto, pues el “-—” es un carácter existente en el teclado. 
e) Incorrecto por llevar la coma (*“,”). 


R2) SAVE PROGRAMA 
R3) LOAD PROGRAMA 1l 
R4) RUN PROGRAMA 2 


RS) 10 LETD$ ="" 
20 FRINT D$; "OPEN NOMBRES, D2,V200" 


R6) 10 LET D$ = "" 
20 PRINT D$; "OPEN DATOS" 
30 PRINT D$; "WRITE DATOS" 
40 PRINT "PRIMER REGISTRO" 
S0 PRINT "SEGUNDO REGISTRO" 
60 PRINT D$; "CLOSE" 
70 END 


R7) 10 LET D$ = "" 

20 PRINT D$; "OPEN DATOS" 
30 PRINT D$; "READ DATOS" 
40 INPUT A$ 

50 PRINT A$ 

60 INPUT A$ 

70 PRINT A$ 

80 PRINT D$;"CLOSE DATOS" 
90 END 
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ENUNCIADOS 1*? PARTE 
PROBLEMAS DE MATEMATICAS 


Considerando el conjunto B = A ' y la relación R 
definida por a Rb, si y solo si, a.h es un número par, es decir 
Rb==a.b = número par. 


Realizar un programa que nos visualice por pantalla el conjunto 
de pares de números que están en R. 


Considerada de nuevo la relación R sobre el conjunto 
X= mar, silla, sol, sal, techo, mesa ' 
estando R definida de la siguiente forma: 


la palabra x R palabra y la palabra X empieza con la misma letra 
que la palabra 1. 


Realizar un programa que nos visualice por pantalla el conjunto 
de pares de palabras que están en R. 

Efectuar un programa que nos visualice las CLASES de EQUI- 
VALENCIA determinadas en B, el conjunto B= ¡E ' / 
por la relación de equivalencia R. tal quea Rh sia+ h=número 
par. 


Realizar un programa que nos devuelva la suma de dos polino- 
mios de grados G/ y G2, introduciendo los coeficientes de 
ambos polinomios. 


Realizar un programa que nos devuelva la resta de dos polino- 
mios de grados N, introduciendo los coeficientes de ambos 
polinomios. 


Realizar un programa que nos devuelva la multiplicación de 
dos polinomios de grados N y M, introduciendo los coeficientes 
de ambos polinomios. 


Hacer un programa que nos efectúe la división de dos polino- 
mios por RUFFINI. 


Hacer un programa que nos devuelva las raíces de una ecuación 
de segundo grado. 


Efectuar un programa que nos dé las raíces de una ecuación 
bicuadrada. 


Elaborar un programa que nos calcule una de las incognitas de 
la igualdad habiendo entrado las otras dos. 


Realizar un programa tal que dada la función  = ax + hb nos 
visualice los valores que toma la variable y para valores de la 
variable X (1, 2, 3, 4, 5), una vez introducidos por teclado los 
valores a y b. 


Realizar un programa que nos devuelva una tabla de valores de 
las variables xe y para valores de a y b introducidos por teclado, 
según la función: 


v=ax?+b 


13. El seno de un ángulo se puede calcular a partir de la función: 
Senx=x— x3/31+x5/51— XA /71+.... +x2r1/(2n—1)! 


dándose x en radianes. 


Realizar un programa que nos calcule dicho seno de un ángulo, 
introducido en grados y para un valor de n también dado por 
teclado. 


No pasar la página hasta haber realizado los ejercicios planteados. 


Rl. 


R2. 
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40 
30 
60 
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210 
220 


230 


10 
20 
30 
40 
50 
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SOLUCIONES 1* PARTE 


REM RELACION BINARIA 

DIM R(4) 

REM — ASIGNACION DE LOS DATOS AL VECTOR 
DATA 2,3,4,59 

FOR 1 = 1 TO 4 


READ B(1) 

NEXT 1 
REM GENERACION Y SALIDA DE RESULTADOS 
TEXT : HOME 

VTAB 5: HTAB 5 

PRINT "CONJUNTO B= ("¡B(1)3" "¿B(2)3" "3B(3) 
BI) 

VTAB 7: HTAB 5 

PRINT "POR DEFINICION A R B SI AXB ES PAR" 
VTAB 9: HTAB 5 

PRINT "LOS PARES DE NUMEROS SON" 

PRINT 

FOR 1 = 1 T04 

FOR J = 1 T0 4 

LET P= B(1) X B(J) 

IFP/2= INT (P / 2) THEN PRINT "("B(1); 
BID", 

NEXT J 

NEXT 1 

END 


REM RELACION DE EQUIVALENCIA 
DIM X$(6) 

REM  ASIGNACION DE LOS DATOS AL VECTOR 
DATA  MAR,SILLA, SOL, SAL, TECHO, MESA 


FOR 1 = 1 TO 6 
READ X$(1) 


R3. 


70 

80 

90 

100 
110 
120 
130 
140 
150 
160 
165 
170 
180 
190 


200 
210 
220 
300 
310 
320 


NEXT 1 
REM GENERACION Y SALIDA DE RESULTADOS 
HOME 

VTAB 3: HTAB 5 

PRINT "ELEMENTOS DEL CONJUNTO X" 

VTAB 5: HTAB 5 

FOR 1 = 1706 

PRINT X$(I)3" "; 

NEXT 1 

PRINT : VTAB 10: HTAB 5 

PRINT "LOS PARES DE LETRAS SON": PRINT 
FOR 1 = 17106 

FOR J = 1 T0 6 

IF LEFTS (X$(1),1) = LEFTS$ (X$(J),1) THEN 
GOSUB 500 

NEXT J 

NEXT 1 

END 

REM RUTINA DE IMPRESION 

PRINT X$(I)3" "¿X$(J) 

RETURN 


REM CONJUNTO COCIENTE 
DIM B(5) 

REM ASIGNACION DE DATOS AL VECTOR 
DATA 1,2,3,4,5 

FOR 1 = 1 705 
READ B(I) 

NEXT 1 

REM GENERACION Y SALIDA DE RESULTADOS 
HOME 

VTAB 5: HTAB 5 

PRINT "CONJUNTO B = ("; 


FOR 1= 1705 
PRINT B(1);" "; 
NEXT 1 


R4. 


PRINT ")" 

VTAB 7: HTAB S 

PRINT "A R B SI A+B ES PAR" 

VTAB 10: HTAB S: PRINT "CLASE 1": PRINT 
HTAB 5 

FOR 1 = 1705 

IF B(1) /2= INT (B(1) / 2) THEN PRINT 
B(D)3" e 

NEXT I 

PRINT 

PRINT 

VTAB 14: HTAB 5: PRINT "CLASE 2": PRINT 
HTAB 5 

FOR 1 = 1705 

IF B(D)/2%<% > INT (B(I) / 2) THEN PRINT 
1-10 O 

NEXT I 

END 


REM SUMA DE POLINOMIOS 
HOME 

INPUT "GRADO PRIMER POLINOMIO"; G1% 

INPUT "GRADO SEGUNDO POLINOMIO"; G2% 
DIM A(G1% + 1),B(G2% + 1) 
REM ENTRADA DE COEFICIENTES Y TERMINO 
INDEPENDIENTE 
FOR 1 = 1 TO G1% 
INPUT "COEFICIENTE "¡A(I) 
NEXT I 

INPUT "TERMINO INDEPENDIENTE ";¡A(G1% + 1) 
FOR I = 1 TO G2% 

INPUT "COEFICIENTE "¡B(I) 

NEXT 1 

INPUT "TERMINO INDEPENDIENTE "¡B(G2% + 1) 


IF G1% > = 62% THEN 280 
LET MAY = 62% 


RS. 


FOR I = G1% + 1 TO 1 STEP - 1 
LET B(MAY + 1) = B(MAY + 1) + ACI) 
LET MAY = MAY - 1 

NEXT 1 

LET EP = G2%: PRINT "LA SUMA ES " 
FOR 1 = 1 TO 62% 

PRINT B(I)3"XO"jEPj" +"; 

LET EP = EP - 1 

NEXT 1 

PRINT B(G2% + 1) 

GOTO 390 

LET MAY = 61% + 1 

FOR I = G2% + 1 TO 1 STEP - 1 
LET A(MAY) = A(MAY) + B(I) 

LET MAY = MAY - 1 

NEXT 1 

LET EP = G1%: PRINT "LA SUMA ES " 
FOR I = 1 TO G1% 

PRINT ACI) "Xx "EP" +"; 

LET EP = EP - 1 

NEXT 1 

PRINT A(G1Z + 1) 

END 


REM RESTA DE POLINOMIOS 
HOME 

INPUT "GRADO DE LOS POLINOMIOS "¿N 
DIM A(N + 1),B(N + 1) 

REM ENTRADA DE COEFICIENTES 
PRINT : PRINT 

PRINT "POLINOMIO MINUENDO" 
PRINT : PRINT 


FOR 1 = 1 TON 
INPUT "COEFICIENTE ";A(I) 
NEXT 1 


R6. 


90 

93 

100 
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10 
15 
20 
30 
40 
50 
60 
70 
80 
90 
100 
105 
110 
120 
130 
140 


INPUT "TERMINO INDEPENDIENTE"; A(N + 1) 
PRINT : PRINT 

PRINT "POLINOMIO SUSTRAENDO" 

PRINT : PRINT 

FOR 1 = 1 TON 

INPUT "COEFICIENTE "¡B(1) 

NEXT 1 

INPUT "TERMINO INDEPENDIENTE ";B(N + 1) 
REM RESTA Y SALIDA DE RESULTADOS 
LET EP =N 

FOR I = 1 TON 

LET ACI) = A(I) - BC1) 

PRINT A(I)3" XOUjERG" +"; 

LET EP = EP - 1 

NEXT 1 

PRINT A(N + 1) - B(N + 1) 

END 


REM — MULTIPLICACION DE DOS POLINOMIOS 
HOME 
INPUT "GRADO DEL POLINOMIO MULTIPLICANDO ";N 
INPUT "GRADO DEL POLINOMIO MULTIPLICADOR ";M 
DIM A(N + 1),B(M + 1),MU(M + 2,M + N + 1) 
REM ENTRADA DE COEFICIENTES 
PRINT : PRINT "POLINOMIO MULTIPLICANDO" 
FOR 1 = 1 TON 
INPUT "COEFICIENTE ";A(I) 
NEXT 1 
INPUT "TERMINO INDEPENDIENTE "¡A(N + 1) 
PRINT 
PRINT "POLINOMIO MULTIPLICADOR" 
FOR 1 = 1 TOM 


INPUT "COEFICIENTE ";B(1) 


R7. 


150 
160 
170 
180 
190 
200 
210 
215 
220 


230 


10 
13 
20 
30 
40 
30 
60 
70 
go 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
205 
210 
220 
230 


INPUT "TERMINO INDEPENDIENTE ";¡B(M + 1) 
REM — MULTIPLICACION 


FOR 1= 1 TOM+i 

LEFT =L +1 

FOR J = 1 TON + 1 

LET MU(I,C + J - 1) = B(I) X A(J) 
NEXT J 

NEXT I 


REM SUMA POR COLUMNAS DEJANDOLA EN LA 
ULTIMA FILA 
FOR 1,2 1710 M+N +1 


REM — DIVISION POR RUFFINI 


HOME 
INPUT "GRADO DEL DIVIDENDO ";¿N 
DIM D(N + 1) 


REM ENTRADA DE DATOS 
PRINT "POLINOMIO DIVIDENDO" 
FOR 1 = 1 TON 
INPUT "COEFICIENTE ";D(I) 
NEXT 1 
INPUT "TERMINO INDEPENDIENTE ";¡D(N + 1) 
INPUT "TERMINO INDEPENDIENTE DEL DIVISOR "¿DI 
REM — ALGORITMO DE RUFFINI 
DI = - DI 
FOR I= 27TO0N + 1 
LET D(1) = D(1) + DI X D(I - 1) 
NEXT 1 
REM SALIDA DE RESULTADOS 
PRINT "COCIENTE " 
LETEP =N- 1 
FOR I1= 1 TON-i 
PRINT DD 3" APUIEP]" + 
LEI. EP. EP ==] 
NEXT 1 
PRINT D(N) 
PRINT 


R8. 


RO. 


REM ECUACION DE SEGUNDO GRADO 

INPUT "COEFICIENTES ";A,B,C 
LETD=B"2-4xAxcC 

IF D< O THEN PRINT "NO TIENE SOLUCION": 
GOTO 100 

IF D= 0 THEN PRINT "TIENE UNA SOLA RAIZ "; 
-B/ (2% A) 

LETX1=(-B+ SQ0R (D)) / (2 Xx A) 

LETX2=(-B- SQ0R (D)) / (2 x A) 

PRINT "TIENE DOS SOLUCIONES "¿X1;" Y "¿X2 
END 


REM  ECUACION BICUADRADA 

INPUT "COEFICIENTES "¡A,B,C 

HOME 

VTAB 5: HTAB 3 

LETD=B"*2-4xkAXC 

IF D< O THEN PRINT "NO EXISTEN SOLUCIONES 
REALES ": GOTO 150 

IF D=0 THEN X2= -B/ (2 X A): GOTO 90 
LETX1i=(-B+ SOR (D)) / (2% A) 
LETX2=(-B- SOR (D)) / (21 A) 

IF X1 > 0 THEN Y1 = SOR (X1):Y2 = SQR (X1) 
* (-1) 

IF X2 > 0 THEN Y3 = SOR (X2):Y4 = SOR (X2) 
Xx (-1) 


PRINT "LAS SOLUCIONES SON ": PRINT 
PRINT "Yi= "¿Y1 

PRINT "Y2= ";Y2 

PRINT "Y3= "¿Y3 

PRINT "Y4= ";Y4 

END 


R10. 


RI! 


REM ECUACION 
HOME 
VTAB 5: HTAB 3 
PRINT "DADA LA ECUACION X=(1/2)XAXT"2" 
PRINT 
PRINT "INTRODUCIR DOS INCOGNITAS " 
PRINT 
PRINT "PARA A Y T, <1>" 
PRINT "PARA X Y A, <2>" 
PRINT "PARA X Y T, <3>" 
INPUT "OPCION, 1,2 0 3";0 
IF O< 1 0R 0 > 3 THEN GOTO 80 
ON O GOTO 140,180,230 
INPUT "A Y T SEPARADAS POR COMA ";A,T 
LETIZIA T?2 
PRINT 
PRINT "X = "¡Xz GOTO 270 
INPUT "X Y A SEPARADAS POR COMA ";X,A 
LETTR=2XX/A 
IF T< O THEN PRINT "T NO TIENE SOLUCION": 
GOTO 270 
LET T= SQR (T) 
PRINT "T = "¿T: GOTO 270 
INPUT "X Y T SEPARADAS POR COMA ";X,T 
LETA=2*X/T"2 
PRINT 
PRINT "A = "¡A 
END 


REM  ECUACION 

HOME 

VTAB 5 

PRINT "PARA LA FUNCION Y=AXX+B" 
INPUT "VALOR DE A "¡A 

INPUT "VALOR DE B ";¡B 

FOR X = 1 TO 5 


R12. 


Ria. | 


100 
110 


LETY=AXX+B 
PRINT md dl E E = EN 
NEXT X 
END 
REM TABLA ECUACION 
HOME 
PRINT 
PRINT "PARA LA FUNCION Y=A*Xx"2+B" 
INPUT "VALOR DE A "¡A 
INPUT "VALOR DE B ";B 
HOME 
VTAB 3 
PRINT — TAB( 6) "VALOR DE X" TAB( 26) "VALOR 


DE Y" 
PRINT TAB( 6) "---------- " TAB( 26) 


FOR X = 1 TO 15 


LETY=ArxXxX"”23+B 
PRINT — TAB( 11)X TAB( 29)Y 
NEXT X 

END 


REM SENO DE UN ANGULO 
INPUT "GRADOS ";G 

LET X= G k 3.14159 / 180 
INPUT "VALOR DE N "¿N 

LET S% = 1 

FOR I = 1 TON 

LET EP =X“% (2 k 1 - 1) 
Foz 1 


FOR J= 27102 Y 1 - 1 
LETF=FXxJ 
NEXT J 


120 
130 
140 
150 
160 


LET SUM = SUM + (EP £ FJ) %.SZ 

LET Sz = - S% 

NEXT 1 

PRINT "EL SENO DE ";6;"” GRADOS ES ";SUM 
END 


ENUNCIADOS 2* PARTE 
PROBLEMAS DE FISICA 


Dada la velocidad de un coche que varía desde 72 Km/h, hasta 90 
Km/h, con incrementos de 2 Km/h. Realizar un programa que 
nos represente en pantalla las velocidades equivalentes en el 
sistema GEORGI y CEGESIMAL de la forma: 


TECNICO GEORGI M/S CEGESIMAL CM/S 
72 20 2000 


Un móvil parte con una velocidad inicial (X), dada en unidades 
GEORGI, una aceleración (Y) dada también en unidades 
GEORG1I. Pretendemos realizar un programa que nos dé la 
velocidad alcanzada al cabo de 1, 2, 3 minutos, para cada una de 
las parejas X e Y introducidas por teclado. Finalizaremos el 
programa cuando para X' introduzcamos el valor 0. 


Realizar un programa que nos visualice por pantalla las unidades 
de trabajo que se deberá realizar una bomba hidráulica de lm3a 
5m3 de agua, con una variación de lm3, para cada una de estas 
unidades de volumen entre 1 y 5 m. de altura con un incremento 
de l m. 


Realizar un programa que nos visualice las distancias a las que 
tenemos que colocar 3 masas de 900, 1.000 y 1.100 Kg. para que 
se atraigan con fuerzas de | mgf, 2 mgf, 3 mgf, 4 mgf y 5 mgf. 


5. Hacer un programa que nos calcule los empujes que pueden 
sufrir 10 esferas de hierro con radios distintos, desde | cm. hasta 
10 cm. respectivamente cuando se introduzcan en el agua. 


6. Realizar un programa que nos visualice una tabla de temperatu- 
ras, en las distintas escalas (CENTIGRADOS, REAUMUR, 
FAHRENHEIT y KELUIN), partiendo de 0% centígrados y 
hasta un valor final de 100% centígrados, variándolos de 5 en $5. 


No pasar la página hasta haber realizado los ejercicios planteados. 
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SOLUCIONES 22 PARTE 


REM — TABLA DE VELOCIDADES 

REM VISUALIZAMOS LA CABECERA 

HOME 

VTAB 3 

PRINT "TECNICO KM/H" SPC( 1)"GEORGI M/SG" 
SPC( 1) "CEGESIMAL CM/SG" 


PRINT 
REM — GENERACION Y VISUALIZACION 
FOR 1 = 72 TO 90 STEP 2 


LETG=I1IRX10/ 36 

LETG= INT ((G + .005) Xx 100) / 100 
LET G$ = STR$ (6) 

LET L1 = LEN (G$) 

LET C% = GX 100 

LET 6% = 6G 


PRINT — TAB( 6)1; 

IF 6% = G THEN PRINT TAB( 20 - L1)G% 
TAB( 32)C% 

IFG%< >6G THEN PRINT TAB( 23 - L1)G 
TAB( 32)C% 

NEXT 1 

END 


REM — VELOCIDAD FINAL 
PRINT "PARA FINALIZAR DAR EL VALOR CERO A LA 
VELOCIDAD" 

INPUT "VELOCIDAD INICIAL "¡V 
IF V = 0 THEN GOTO 100 
INPUT "ACELERACION "¡A 

FOR 1 = 1 TO 3 


R4. 


60 LET VF =V+AXIXx60 


70 PRINT "VELOCIDAD FINAL = ";¿VF;" PARA ";1;" 
MINUTOS" 

80 NEXT I 

90 GOTO 15 

100 END 


10 REM UNIDADES DE TRABAJO 


20 FOR 1 = 1 TOS 
30 FOR J<=1TOS 
40 LET W= I x 1000 k J 


50 PRINT "PARA ";1;" METROS CUBICOS DE AGUA" 
60 PRINT "PARA ";J;" METROS DE ALTURA" 

70 PRINT "W = "¿W;" KGM" 

75 PRINT 

80 NEXT J 

90 NEXT 1 

100 END 


10 REM FUERZA DE ATRACCION DE MASAS 


20 FOR I = 900 TO 1100 STEP 100 

30 FOR J<=1T0S 

40 LETD= SOR (6.67E - 11 * 1 x J / (9.8E -— 6 
xXx J)) 


S0 PRINT "PARA ";l;" KG"; 

60 PRINT " Y "¡J¡" MGF" 

70 PRINT "LA DISTANCIA SERA ";D;" M" 
73 PRINT 

80 NEXT J 

90 NEXT 1 


100 END 


RS. 


R6. 


60 
70 
80 
90 
100 
110 
120 
130 


REM — TEOREMA DE ARQUIMEDES 
FOR I = 1 TO 10 


LETV=4/3%3,14159 Xx 1% 3 
LETE=IXV 

PRINT "EMPUJE = ";¡E;" GF" 

NEXT I 

END 


REM — TABLA DE TEMPERATURAS 

HOME 

VTAB 5 

PRINT "CENTIGRADOS" SFC( 1)"REAUMUR" SPC( 1) 
"FAHRENHEIT" SPC( 1)"KELVIN" 


PRINT _" -=========-= " SPC( 1)" ------- " 5PL 1 1) 
(¿AA " SPC ( 1 A ” 

PRINT 

FOR 1 = 0 TO 100 STEP S 

LETR=80 xXx 1I/ 100 

LET F = 180 * I / 100 + 32 


LET K = I + 273 

PRINT— TAB( 5)1 TAB( 16)R TAR( 25)F TAB( 34)K 
NEXT I 

END 


1 
sd "y 


a 3 UNA 


AD is A AA a ds 


